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INTRODUCTION 


Imagine yourself as captain of a space ship traveling throughout 
the galaxy. Your mission is to seek and destroy all alien ships to 
make the galaxy safe so that other ships from your planet may jour¬ 
ney into outer space. Due to the urgency of the mission it must be 
completed within a given time. If the mission is not completed with¬ 
in the time allotted, the safety of all future voyages is in jeopardy. 
Your space ship is supplied with a limited amount of fuel and 
weapons so you must choose your course and attack strategy care¬ 
fully. Mission control has placed space stations at various points in 
the galaxy for refueling. A space station contains a limitless amount 
of fuel and weapons. However, don’t get caught too far from a space 
station with your energy low or you may end up drifting endlessly 
through space. 

As an aid in searching the galaxy, the space ship is equipped with 
a galaxy scanner which is capable of displaying three different de¬ 
grees of detail. The short range scan provides an accurate picture of 
the immediate quadrant through which the space ship is currently 
traveling. Your location and that of any alien ships, stars, and space 
stations in the quadrant are defined by exact sector coordinates. The 
long range scan displays the contents of the eight quadrants sur¬ 
rounding the quadrant you presently reside in. The wide angle 
scanner provides a view of the total galaxy from which you can plot 
your course. 

The space ship is equipped with two types of weapons. The 
PHASOR is an energy discharge device which homes in on all enemy 
ships in the immediate area and directs specified amounts of energy 
at each. This energy, if enough to destroy, will completely eliminate 
the alien ship. However, should the alien ship survive the attack, it 
will retaliate by shooting back at your ship. It is important that you 
keep the energy in your ship’s protective shields at sufficient levels 
to withstand any possible retaliation from the enemy. The other 
weapon available is the TORPEDO. It is capable of destroying any 
alien ship on impact. The target must be in direct line of sight of 
the space ship for the torpedo to reach its destination. A missed tor- 



pedo shot results in immediate retaliation by the alien ship. Also, be 
careful when there is a space station in the area. If the torpedo hits 
it, the space station is destroyed. 

Now, turn your imagination into the realm of reality by trans¬ 
forming your small computer system into the control station of the 
space ship. Each move by the space ship is controlled by the com¬ 
puter operator and the responsibility of the total mission is placed on 
the operator’s shoulders. The GALAXY program presented here 
will allow one to make this transformation by loading the program as 
presented, and simply adding the appropriate I/O routines for one’s 
specific I/O setup. Or, it can be expanded by revising the command 
operations or adding new commands to make the game more com¬ 
plex, and modifying it to take advantage of special I/O devices which 
the reader may have associated with one’s computer system. The 
number of possible variations are limitless. The operation of this 
program is explained in detail to aid those that desire to make 
revisions and additions to its operation. 
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OPERATION OF THE GALAXY PROGRAM 


Before getting into the specifics of the SCELBI GALAXY pro¬ 
gram, it is important that the reader understands the general opera¬ 
tion of the program. As one might imagine, the programming will be 
a bit intricate at times, so a good general knowledge of its operation 
will help keep things in perspective. This section is also written so 
that it may be used as an operating guide which may be referred to 
when playing the game. 

The object of the Galaxy game is to destroy all the alien ships in 
the galaxy. The exact number of alien ships which must be destroyed 
is defined in the initial message along with the number of stardates 
one has to complete the mission, and the number of space stations 
available in the galaxy for refueling. Each time a game is started, the 
entire galaxy is set up in a random manner so that no two games will 
be the same. The number of alien ships and space stations, and their 
respective locations in the galaxy will also be different for each game. 

The galaxy is made up of 64 quadrants arranged in an eight-by- 
eight matrix. The quadrants are identified by the row number and 
column number of its location in the matrix. The row numbers run 
from one to eight starting with the top row. The column numbers go 
from one to eight starting with the left-hand column. Within each 
quadrant there are 64 sectors arranged in the exact same format as 
the quadrants in the galaxy. There can exist only one galactic object 
in a sector at any one time. An illustration of the matrix is shown 
on the following page. 


The space ship used to traverse the galaxy in search of enemy ves¬ 
sels contains several integral parts which allow it to carry out its 
mission. First, there is the main storage bank which contains the 
main supply of energy for the space ship. This energy is used to move 
the ship through the galaxy, supply the power to fire the phasors 
and torpedoes, and transfer energy to the protective shields. The 
maximum energy capacity in the main storage bank is 5000 units. 
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The master control panel is used to enter commands to direct the 
ship s movement, request scanner displays, fire phasors and torpe¬ 
does, and transfer energy to the protective shields. It also displays 
s atus reports to inform the operator of various conditions which 
arise during the course of the mission. The master control panel re¬ 
quires 10 units of energy for each command entered. It is also a posi¬ 
tive action panel which means that once a command mode is entered 
the command sequence must be completed. The physical arrange- 
ment of the master control panel will depend on the I/O facilities of 
the individual computer system. 

The alien ships which are to be destroyed have the following 
properties. First, a protective shield, similar to the space ship’s 
! n 1 £ dS ’ s J irrounds the allen ship. This shield can contain from 0 to 

IZ r Sf 6nergy ‘ ThlS SUpply ° f energ y is de Pleted by a phasor 
from the space ship m direct proportion to the amount of 

phasor energy which reaches the shield. Next, the alien ship has an 
endless supply of energy to fire back at the space ship. This energy is 
fired only in retaliation for an attack by the space ship. If a torpedo 
shot misses, the alien ship responds with a phasor of 200 units of 
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energy. If a phasor does not destroy the alien ship, a phasor with 1/4 
of the amount of energy left in the shields of the alien ship is fired 
at the space ship. The alien ship is destroyed by the direct hit of a 
torpedo, by a phasor which removes all of its shield energy, or by the 
space ship colliding with the alien ship. 

Space stations are scattered throughout the galaxy to provide the 
space ship with refueling locations. In order for the space ship to re¬ 
fuel, it must maneuver to a sector alongside the space station where 
it is considered “docked.” When the space ship is docked, its energy 
supply is replenished to its maximum capacity, and the torpedo 
tubes are refilled to their capacity of 10 torpedoes. The energy and 
torpedoes are transferred to the space ship only on the initial move 
to dock with the space station. Remaining docked while using energy 
to fire phasors and torpedoes will not provide the space ship with an 
endless supply. To replenish its supply after attacking from a docked 
position, the space ship must move away from, and then return to, 
the space station. Also, when docking, if the space ship collides with 
the space station, the space station will be destroyed. 

The ship’s weapons arsonal consists of a phasor, which discharges 
high levels of concentrated energy, and a torpedo launcher. The 
phasor “homes in” on all alien ships in the quadrant in which the 
space ship is residing. The actual amount of energy fired is selected 
by the operator. The torpedo must proceed in a straight line to the 
object that it is to destroy. The maximum number of torpedoes, and 
the amount of energy used for each, will be covered shortly. 

The protective shields are the ship’s defense against any attack by 
an alien ship, or it’s protection from damage should it accidently 
collide with a space station or alien ship. The shields are capable of 
absorbing an amount of energy equal to the amount of energy they 
contain. It is important that the shield energy level be maintained 
high enough to withstand any possible attack, since severe energy 
losses occur if the shield energy goes to zero. 

The stars, which are scattered throughout the galaxy, serve as 
possible obstructions for the space ship when moving about in a 
quadrant, and by blocking the direct line of fire of a torpedo. The 
space ship must also be very careful in maneuvering around a star 
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because colliding with one means instant destruction. 

When a command is to be input to the program, the following 
message will be displayed: 


COMMAND? 

The operator must then enter a number from zero to six to initiate 
one of the following command modes. 


0 - SPACE SHIP MOVEMENT COMMAND 

1 - SHORT RANGE SCAN COMMAND 

2 - LONG RANGE SCAN COMMAND 

3 - GALAXY DISPLAY COMMAND 

4 - SHIELD COMMAND 

5 - PHASOR COMMAND 

6 - TORPEDO COMMAND 


COMMAND 0 - SPACE SHIP MOVEMENT 


The movement of the space ship is controlled by designating both 
course direction and distance. Movement within a quadrant requires 
only the energy required for the command, which is 10 units. If the 
move crosses one or more quadrant boundaries, 25 units are used for 
each quadrant crossed. When the completion of any move results in 
the space ship residing in a new quadrant, one stardate is used up. 

When a movement command is entered, the course direction is 
requested by the following message being displayed: 

COURSE (1-8.5)? 

Course direction is entered by specifying a two digit number as 
indicated in the request of the value 1.0 to 8.5. This number indi¬ 
cates the direction the space ship is to move according to the com¬ 
pass on the following page. 
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From this diagram, one can see that the possible directions start to 
the right with a value of 1.0 and move around in a counterclockwise 
manner with assignments made every 22 l A degrees. If one desired to 
move to the left and slightly down, the course would be entered as 
5.5. This direction assignment is also used to define the trajectory of 
a torpedo fired from the space ship, as will be discussed shortly. 

After the direction has been entered, the distance, or warp factor, 
is requested by the following message being displayed: 

WARP FACTOR (0.1-7.7)? 

As indicated, the warp factor is entered by specifying a two digit 
value. The space ship will move a distance of one sector for each 0.1 
designated in the input. The maximum value for either digit is seven. 
Thus, to move to the same sector in the quadrant to the right of 
one’s current position, the course direction would be 1.0, and the 
warp factor would be 1.0, not 0.8. This setup creates a one-to-one 
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relationship between the distance entered, and the number of quad¬ 
rants and sectors moved through, since the quadrants are broken up 
into an 8 x 8 matrix for the sectors. 


There are several moves which one must be very careful to avoid 
while traveling through the galaxy. One is that of moving out of the 
oundaries of the galaxy. If this occurs, the space ship is lost forever 
in outer space. Another move of equivalent consequence is a move 
which causes the space ship to crash into a star. A star is considerably 
arger than the space ship, and a collision results in the space ship 
becoming completely engulfed in the gaseous composition of the star 
and destroyed. The third move to avoid is a collision with a space 
station. The force of the collision will result in the loss of 600 units 
ot energy from the space ship. Of a greater consequence, however is 
the aspect that the space station is wiped out on impact, since it con¬ 
tains no defensive mechanism to absorb such a collision. This may 
seriously damage the chances of completing a mission. The final 
move is a “kami-kazi” move against an alien ship. This gives the de- 

W funn deS < tr ° y ! ng the enemy ’ but the s P ace shi P will sustain a 
loss of 1500 units of energy which may leave it with very little 

power The possibility of colliding with another object is only 
present while traveling in the quadrant that the space ship is in at the 
time the movement command was entered. Once the ship moves out- 
si e the initial quadrant, the automatic guidance control takes over 
and safely steers the space ship to its destination. 


COMMAND 1 - SHORT RANGE SCAN 


The short range scan provides a detailed picture of the contents of 
the quadrant in which the space ship currently resides. A short range 

SsTh ° nly . the 6nergy required for the-command, which is 10 
units. The precise sector location of the space ship, stars, alien shins 
and space stations are displayed for examination"’by the opemtor.’ 

objects are “ Sed t0 det ' ne each ot the 0° ssib ' e 


<*> -SPACESHIP 
+++ - ALIEN SHIP 

* - STAR 

> 1 < - SPACE STATION 
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A sample of a short range scan display is shown below. The display 
also provides the basic status information for the ship to the left of 
the scan. The stardate will always start with a 30, and the last two 
digits will approach the value of 50. When the stardate reaches 3050, 
the space ship has run out of stardates and the mission has failed. 
The condition status will be red if an alien ship is present in the cur¬ 
rent quadrant, and green if there are no alien ships in the quadrant. 
The quadrant and sector values refer to the current position of the 
space ship. The first digit indicates the row number, and the second 
digit indicates the column of the respective position in the galaxy. 
The energy is the amount of energy currently contained in the main 
storage bank. This energy will be a maximum value of 5000 units. 
The next entry provides a count of the number of torpedoes avail¬ 
able on the space ship. The final status entry indicates the amount of 
energy in the protective shields. 


-1 - 

- 2 - - 3 - - 4 - - 5 

--6- 

- 7 - 

-8- 



1 

* 




STARDATE 

3023 

2 





CONDITION 

RED 

3 


+++ 



QUADRANT 

6,5 

4 

* 




SECTOR 

5,3 

5 

<*> 




ENERGY 

5000 

6 





TORPEDOES 

10 

7 

>1< 


* 


SHIELDS 

0000 

8 







-1 - 

- 2 - - 3 - - 4 - - 5 

--6 - 

- 7 - 

-8 - 




EXAMPLE OF A SHORT RANGE SCAN 


COMMAND 2 - LONG RANGE SCAN 

The long range scan command gives an overall view of the eight 
quadrants which surround the quadrant currently occupied by the 
space ship. The 10 units of energy needed for a command are all that 
is required to display a long range scan. The presence of alien ships, 
space stations and stars are indicated for each quadrant. The contents 
are indicated by a three digit number in each square. The left hand 
digit indicates the number of alien ships in the quadrant; the center 
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digit indicates the number of space stations, and the right hand digit 
indicates the number of stars. A sample of a long range scan is pre¬ 
sented below. 

L.R. SCAN FOR QUADRANT 6,5 


1 112 1 001 1 006 1 


1 001 1 113 1 104 1 


1 203 1 007 1 004 1 


COMMAND 3 - GALAXY DISPLAY 

The contents of the entire galaxy may be displayed by requesting 
a galaxy display. The display requires only the 10 units of energy ne¬ 
cessary for the command. The contents of each quadrant are shown 
in the same form as that used in the long range scan. From this dis¬ 
play the operator may plan a long range course to successfully com¬ 
plete a mission. The following is a sample of a galaxy display. The 
reader may note the location of the long range scan quadrants as pre- 


1 105 1 002 1 003 1 000 1 000 1 105 1 000 1 000 1 
1 117 1 000 1 304 1 106 1 005 1 003 1 107 1 002 1 
1 105 1 007 1 003 1 006 1 000 1 000 1 000 1 000 1 
1 005 1 003 1 000 1 000 1 000 1 000 1 003 1 004 1 
1 001 1 000 1 000 1 112 1 001 1 006 1 203 1 105 1 
1 000 1 103 1 000 1 001 1 113 1 104 1 002 1 117 1 
1 000 1 103 1 000 1 203 1 007 1 004 1 000 1 002 1 
1 000 1 000 1 003 1 000 1 000 1 001 1 102 1 107 1 
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sented in the previous illustration. 


COMMAND 4 - SHIELD CONTROL 

The shield control command provides a means of transferring 
energy between the main energy storage bank and the protective 
shields. The shields must contain energy to protect the space ship 
from attacks by the alien ships or from possible collisions with 
either an alien ship or a space station. The energy required to make 
the transfer is simply the 10 units required for the command. The 
amount of energy transferred is specified by the operator in response 
to the following message being displayed: 

SHIELD ENERGY TRANSFER = 

The operator then enters a four digit number indicating the 
amount of energy desired to be transferred. When a four digit num¬ 
ber is entered, the energy is transferred from the main storage bank 
to the shield. If a four digit number is preceeded by a minus sign, the 
energy is transferred from the protective shield back to the main 
storage bank. 

It is important that the amount of energy in the shields be main¬ 
tained at sufficient levels to withstand any possible attack. If the 
shield energy should become too low to absorb the energy of an 
attack, the additional energy needed will be taken from the main 
supply, and an additional 25 percent of the total energy loss will be 
depleted from the main storage bank as a penalty. This 25 percent 
loss is the amount of energy required to make repairs to the portions 
of the space ship damaged by the energy that was not absorbed by 
the shields. 


COMMAND 5 - PHASOR CONTROL 

The phasor control directs the phasor’s energy at the alien ships 
that reside in the immediate quadrant. The amount of energy that is 
to be fired is specified by the operator in response to the following 
message being displayed. 
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PHASOR ENERGY TO FIRE: 


A four digit number is then entered and the phasor shots are fired 
at the alien ships in the quadrant. The result of the phasor energy 
shot at each alien ship is reported by the following message being 
displayed: 

ALIEN SHIP AT SECTOR X,Y: ENERGY = ZZZZ 

or DESTROYED 

The values of X and Y indicate the sector location of the alien ship, 
and the message after the colon will indicate either the amount of 
energy (ZZZZ) remaining in the alien ship, or that the alien ship has 
been destroyed. If the alien ship is not destroyed by the phasor, one 
quarter of its energy will be shot back at the space ship in retalia¬ 
tion. This retaliation will be indicated by the following message: 

LOSS OF ENERGY XXXX 

Before specifying the amount of energy, the operator must be 
aware of several properties of phasor energy. First, the amount of 
energy to be fired is divided equally between the alien ships in 
the quadrant. If there are two alien ships in the quadrant, and the 
operator indicates 500 units of energy, 250 units will be fired at each 
alien ship. Next, the amount of phasor energy that reaches the target 
is governed by the distance the energy must travel. The distance is 
figured by adding up the number of sectors in the horizontal and ver¬ 
tical direction between the space ship and the alien ship. This 
distance is then divided by four and the fraction is discarded; this 
value is used as the distance factor. The distance factor is the num¬ 
ber of times the amount of energy fired at an alien ship is to be 
divided by two. The distance between the space ship and the alien 
ship is therefore critical to the amount of phasor energy to reach the 
alien ship. For example, if the space ship is at sector 2,4 and the alien 
ship is at sector 6,6, the total number of sectors is equal to two in 
the horizontal direction (6-4=2) plus four in the vertical direction 
(6-2=4). This distance of six is divided by four and the whole number 
one is used as the distance factor. This distance factor divides the 
energy to be fired at the alien ship by 2. It is important that the 
space ship be as close to the alien ship(s) as possible to achieve the 
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maximum effectiveness of a phasor shot. 


COMMAND 6 - TORPEDO CONTROL 


The torpedo control fires a torpedo in the direction specified by 
the operator. Each torpedo requires 250 units of energy to fire, and 
must be in the direct line of fire of the target. The trajectory of the 
torpedo is entered by the operator in response to the following 
message being displayed: 

TORPEDO TRAJECTORY: 

The trajectory is defined in the same format as the course specifi¬ 
cation when entering a movement command. A two digit number is 
entered indicating the direction in which the torpedo is to travel. The 
track of the torpedo is then traced, and reported to the operator as it 
moves from one sector to another. This is reported by a series of 
tracking messages displayed in the following format: 

TRACKING: X,Y 
TRACKING: U,V 
’ TRACKING: S,T 

The values of X,Y, U,V, and S,T are the row and column of the 
sectors through which the torpedo is passing. When the torpedo 
either reaches the boundary of the quadrant or hits an object, an 
advisory message is displayed. If the torpedo misses the alien ship 
and reaches the boundary of the quadrant, or if the torpedo hits a 
star, the following message will be displayed: 

YOU MISSED! ALIEN SHIP RETALIATES 
LOSS OF ENERGY = 200 

Missing the alien ship causes it to retaliate by firing back 200 units of 
energy at the space ship. If the torpedo hits a space station, not only 
is the alien ship going to retaliate, but the space station is destroyed 
since it has no defense against a torpedo. The following message is 
displayed to inform the operator of this serious disaster. 
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SPACE STATION DESTROYED 
YOU MISSED! ALIEN SHIP RETALIATES 
LOSS OF ENERGY = 200 

If all goes well, and the trajectory is right on target, the alien ship 
will be destroyed and the following message will inform the operator 
of the successful hit: 


ALIEN SHIP DESTROYED 



SYSTEM REQUIREMENTS 


MEMORY USAGE FOR THE GALAXY PROGRAM 

The Galaxy program presented in this book requires 4096 bytes of 
RAM memory to operate in a 6800-based microcomputer system. 
The program is broken down into the following blocks of memory. 
Page 00 is used to store the course table, temporary data, the galaxy 
display line, and the galaxy content table. Pages 01 through 04 con¬ 
tain the messages used by the program. The subroutines reside on 
pages 05 through 09, and the major program routines run from the 
middle of page 09 to page 0E. The lower half of page OF is used to 
store the galaxy setup table and the upper half of page OF is reserved 
for the user supplied input and output routines. The stack is ini¬ 
tialized at the top of page 0E. If more than 128 bytes are required 
by the user for the I/O routines, and the user’s system does not have 
more than 4K of memory, the length of several of the messages can 
be cut down to provide the additional memory space needed for 
the I/O routines. 


INPUT/OUTPUT REQUIREMENTS 

The input/output requirements for the galaxy program presented 
herein allow the reader to tailor the I/O portion of the program to 
the specific devices that are available for use on one’s computer 
system. The character code used in this program is the 7 bit ASCII 
code with the 8th bit, or parity bit, assumed to be at a ‘1.’ The 
game uses the full alphanumeric character set plus punctuation 
marks. A table of the ASCII code required by this program is pre¬ 
sented on the following page. 

The input routine must input a character from the system input 
device, such as a keyboard, and return to the calling program with 
the ASCII code for the character entered in the A accumulator. 
This input routine, labeled INPUT, can use the A accumulator to 
input the character. If the B accumulator or the Index register must 
be used, the input routine must save and then restore their contents 
before returning. If the input device is not connected in some way 
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ASCII CHARACTER SET 


CHARACTERS 

SYMBOLIZED 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 

V 
w 
X 

Y 
Z 
[ 

] 


SPACE 
CAR RET 
LINE FEED 


HEXA CHARACTERS HEXA 

REP SYMBOLIZED REP 


Cl 

C2 

C3 

C4 

C5 

C6 

C7 

C8 

C9 

CA 

CB 

CC 

CD 

CE 

CF 

DO 

D1 

D2 

D3 

D4 

D5 

D6 

D7 

D8 

D9 

DA 

DB 

DC 

DD 

DE 

DF 

AO 

8D 

8A 


$ 

% 

& 

J 

( 

) 

* 


/ 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


@ 

RUBOUT 


A1 

A2 

A3 

A4 

A5 

A6 

A7 

A8 

A9 

AA 

AB 

AC 

AD 

AE 

AF 

BO 

B1 

B2 

B3 

B4 

B5 

B6 

B7 

B8 

B9 

BA 

BB 

BC 

BD 

BE 

BF 

CO 

FF 
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to the display device to provide automatic printout of the char¬ 
acters entered, the INPUT routine should provide some means of 
outputting the character received to the output device. This may be 
achieved by echoing the character in the input routine, or by calling 
the PRINT routine to perform the output. The INPUT routine is 
called in the subroutines labeled DRCT and EIN, and in the major 
routines labeled GALAXY, CMND and CRSE. 

The output routine is required to output the character whose 
ASCII code is contained in the A accumulator when the output 
routine is called. The initial contents of the A and B accumulators 
and the Index register are expected to be maintained upon returning 
to the calling program. If it is necessary to use these registers, the 
contents must be saved and then restored upon returning to the 
calling program. The output routine is referred to by the label 
PRINT. This routine is called by the subroutines MSG, NTN and 
DRCT, and the major routine CRSE. 

For systems that operate with the MIKBUG** program for I/O, 
the following program listings maybe used for the INPUT and PRINT 
routines. 


INPUT JSR $E1AC 
ORAA #$80 
RTS 


Call MIKBUG** input routine 

Set the parity bit 

Return to the calling program 


PRINT PSHA 

JSR $E1D1 

PULA 

RTS 


Save character to be output 
Call MIKBUG** output routine 
Restore character in A 
Return to calling program 


** MIKBUG is a registered trademark of the Motorola Corporation 
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DATA TABLE, MESSAGES, and SUBROUTINES 


DESCRIPTION OF THE GALAXY DATA ON PAGE 00 


The major portion of the operation of the Galaxy game concerns 
itself with the contents and manipulation of the data stored on page 
00 from location 33 to 50. This table area is reserved for the storage 
of information, such as the location of the space ship, stars, alien 
ships, and space stations within the current quadrant, the amount of 
energy contained in the main energy storage, the shields of the space 
ship, and the energy in the shields of the alien ships. The count of 
the number of torpedoes, space stations, alien ships, and stardates 
remaining is also stored here. The format of the data in this table is 
summarized below with a description of each following the sum¬ 
mary. 


LOCATIONS 

FORMAT 

DEFINITION 

33, 34 

XXXXXXXX 

Random number storage 

35 

00AASTTT 

Current quadrant contents 

36 

00RRRCCC 

Sector location of space ship 

37, 3D 

00RRRCCC 

Sector location of stars 

3E 

00RRRCCC 

Sector location of space station 

3F 

00RRRCCC 

Sector location of alien ship No. 1 

40 

00RRRCCC 

Sector location of alien ship No. 2 

41 

00RRRCCC 

Sector location of alien ship No. 3 

42, 43 

XXXXXXXX 

Dbl precision value of main energy 

44, 45 

XXXXXXXX 

Dbl precision val. of shield energy 

46, 47 

XXXXXXXX 

D.P. val. of alien ship No. 1 energy 

48, 49 

XXXXXXXX 

D.P. val. of alien ship No. 2 energy 

4A, 4B 

XXXXXXXX 

D.P. val. of alien ship No. 3 energy 

4C 

00RRRCCC 

Crnt. quad, location of space ship 

4D 

0000PPPP 

Number of torpedoes remaining 

4E 

oooooxxx 

Number of space stations 

4F 

oooxxxxx 

Number of alien ships 

50 

ooxxxxxx 

Number of stardates remaining 
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LOCATIONS 33 and 34 


The random number routine uses the contents of these two loca¬ 
tions to generate and store the next random number. 

LOCATION 35 

The contents of the current quadrant in which the space ship is 
located are stored in this byte. The bits indicated by TTT provide a 
count of the number of stars in the quadrant; the S indicates a space 
station present when set to “1;” and the bits AA indicate the number 
of alien ships in the quadrant. Each time a new quadrant is entered, 
this location is loaded with its contents. This is done to provide the 
program with a convenient reference location for the contents of the 
quadrant. All of the quadrants are set up at the start of the game, 
and stored in the galaxy content table on the upper quarter of 
page 00. 

LOCATION 36 

The row and column numbers for the current sector location of 
the space ship are indicated by the RRR and CCC bits, respectively, 
in this byte. The row and column numbers are represented by the 
binary values zero through seven in this location. However, they 
represent the row and column numbers one through eight when 
presented in the output to the display device. This row and column 
representation is used in the next 11 locations to indicate the loca¬ 
tion of the stars, space stations, and alien ships in the quadrant. This 
provides the program with a convenient means of checking for a 
strike by a torpedo, or a collision of the space ship with another 
object in the quadrant. The initial value stored in this location is set 
up using the random number generator. After that time, the location 
of the space ship is controlled by the operator. 

LOCATIONS 37 through 3D 

The location of the stars in the current quadrant is indicated by 
the row and column numbers contained in this portion of the table. 
The values RRR and CCC are of the same format as that presented 
for the space ship. If there are less than seven stars in the current 
quadrant, the unused locations in this table are set to octal CO. If 
there are no stars in the quadrant, all of the locations will contain 
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CO. The locations of the stars are set using the random number 
generator each time a new quadrant is entered. 


LOCATION 3E 

The location of the space station in the current quadrant is stored 
here. The row and column numbers are represented in the same for¬ 
mat as the space ship and stars; they are set by use of the random 
number generator each time a new quadrant is entered. If a space 
station does not reside in the current quadrant, this location will 
contain CO. At the completion of a move by the space ship, this 
location is used in determining whether the space ship has docked 
with the space station. 

LOCATIONS 3F through 41 

This portion of the table is used for the storage of the location of 
the alien ships. The row and column representation is the same as 
that presented for the previous nine locations. If less than three alien 
ships are in the current quadrant, the unused locations will contain 
CO. When an alien ship is destroyed, the corresponding location in 
this table will be set to CO as part of the process of eliminating it 
from the galaxy. 

LOCATIONS 42 and 43 

The binary value of the amount of energy in the main storage 
bank is maintained in this location pair. The least significant half is 
saved in location 42, and the most significant half in location 43. The 
maximum value stored in this location is 5000, which is set up at the 
start of a game and each time the space ship docks. 

LOCATIONS 44 and 45 

This location pair is used to store the binary value of the energy 
contained in the space ship’s protective shields. As with the main 
energy storage, the least significant half is stored in location 44, 
and the most significant half in location 45. The amount of energy 
stored in this location is set up by a command entry, and is depleted 
by attacks by alien ships. 
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LOCATIONS 46 through 4B 


The binary values of the energy levels of the alien ships protective 
shields are contained in this portion of the table. The least significant 
half is in the even numbered byte, and the most significant half in 
the odd numbered byte. The energy level for each alien ship is set up 
using the random number generator when a space ship enters a quad¬ 
rant. The energy indicated in these locations is the only defense an 
alien ship has against a phasor attack. 

LOCATION 4C 

This location contains the row and column numbers of the space 
ship’s current quadrant location within the galaxy. The format is 
the same as that for the sector location of the space ship defined 
previously. The quadrant location is set up initially by use of the 
random number generator, and is then controlled by the operator 
as the space ship is moved throughout the galaxy. The contents of 
this location are used to fetch the quadrant contents by setting the 
two most significant bits to “1,” and using this as a pointer to the 
galaxy content table. 

LOCATION 4D 

A count of the number of torpedoes remaining in the space ship is 
maintained here. This location is set to 10 at the start of each game 
and each time the space ship docks with the space station. When a 
torpedo is fired, this count is decremented by one until it reaches 
zero which indicates there are no torpedoes left. 

LOCATION 4E 

This location maintains a count of the number of space stations in 
the galaxy. If a space station is destroyed by collision or torpedo, the 
count is decremented by one. When the count goes to zero, a 
warning message is displayed to inform the operator that the last 
space station has been destroyed. 

LOCATION 4F 

A count of the number of alien ships remaining is maintained in 
this location. Each time an alien ship is destroyed, this location is de- 
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cremented by one. When it reaches zero, the mission is completed by 
the successful destruction of all the alien ships. 

LOCATION 50 

This location indicates the number of stardates left in the game. 

A stardate is used up when a move results in the space ship residing 
in a new quadrant. This location will be decremented by one each 
time this occurs. When this count goes to zero, the operator has run 
out of time, and the game is over. This count is initially set to five 
more than the number of alien ships. 

The data area on page 00 is followed by a list of pointers. This 
table of pointers begins at location 56 and runs up through location 
75 on page 00. The pointers contained in this table point to various 
locations in the data table that the index register is set to at different 
times throughout the program. By setting up a table in this fashion, 
the index register may be loaded by a two-byte direct addressing 
mode instruction rather than a three-byte extended addressing mode 
instruction, thereby shortening the program by approximately one 
quarter of a page. This table of pointers is presented in the assembled 
listing in Chapter Five. 

TEXT MESSAGES USED IN THE GALAXY PROGRAM 

The Galaxy program uses a number of messages to inform the 
player of the current status of the game in progress, and to request 
information from the player about the move that is to be made next. 
These messages are stored in a large block of memory on pages 01 
through 04. Each message is stored as a string of ASCII characters 
with a zero byte as the terminator for the message. There are a num¬ 
ber of these messages that require the addition of variable infor¬ 
mation before the message is to be printed. These messages indicate 
the current status of the space ship which the player must keep 
watch over, the position of the objects in the galaxy, and the current 
progress of a specific move, such as the energy used or the tracking 
of a torpedo as it moves through a quadrant. The text of these 
messages is presented next with the location of the variable data in¬ 
dicated by X’s. 
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“DO YOU WANT TO GO ON A SPACE VOYAGE?” 

“YOU MUST DESTROY XX ALIEN SHIPS IN XX STARDATES 
WITH X SPACE STATIONS” 

“-1--2--3--4--5--6--7--8-” 

“X ” (Short Range Scan Row) 

“STARDATE 30XX” 

“CONDITION XXXXX” (Green or Red) 

“QUADRANT X,X” 

“SECTOR X,X” 

“ENERGY XXXX” 

“TORPEDOES XX” 

“SHIELDS XXXX” 

“COMMAND?” 

“COURSE (1-8.5)?” 

“WARP FACTOR (0.1-7.7)?” 

“L.R. SCAN FOR” 

“1 XXX 1 XXX 1 XXX 1” (Long Range Scan Row) 

“1 XXX 1 XXX 1 XXX 1 XXX 1 XXX 1 XXX 1 XXX 1 XXX 1” 
(Galaxy Display Row) 

“MISSION FAILED, YOU HAVE RUN OUT OF STARDATES” 

“KA-BOOM, YOU CRASHED INTO A STAR. 

YOUR SHIP IS DESTROYED.” 

“YOU MOVED OUT OF THE GALAXY. 

YOUR SHIP IS LOST. . .LOST” 
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“ABANDON SHIP! NO ENERGY LEFT!” 


“CONGRATULATIONS, YOU HAVE ELIMINATED ALL OF 
THE ALIEN SHIPS” 

“LOSS OF ENERGY XXXX” 

“DANGER - SHIELD ENERGY 000” 

“SHIELD ENERGY TRANSFER = ” 

“NOT ENOUGH ENERGY” 

“TORPEDO TRAJECTORY: ” 

“ALIEN SHIP DESTROYED” 

“YOU MISSED! ALIEN SHIP RETALIATES” 

“SPACE STATION DESTROYED” 

“TRACKING: X,X” 

“GALAXY DISPLAY” 

“PHASOR ENERGY TO FIRE = ” 

“ALIEN SHIP AT SECTOR X,X:” 

“ENERGY = XXXX” 

“NO ALIEN SHIPS! WASTED SHOT” 

“NO TORPEDOES” 

“LAST SPACE STATION DESTROYED” 
“CHICKEN!” 


These messages require IK bytes of memory to store one byte at a 
time. The text of many of these messages can be changed by the 
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reader to indicate varying degrees of emotion if desired. Or, if the 
user provided I/O routines require more than the amount of memory 
allocated, several of the messages can be shortened, or, if necessary, 
deleted, to make room for the I/O programming. If the messages are 
changed, the addresses in the program that refer to them must also 
be changed. These locations in the program will be indicated when 
the operating portion of the program is presented. 


SUBROUTINES FOR THE GALAXY PROGRAM 

There are many subroutines in this program. They are written to 
perform various tasks common to many of the routines throughout 
the Galaxy program. Among the types of functions they perform are 
outputting messages to the printer device, converting binary numbers 
to decimal (and vice-versa), setting up message contents with data to 
be displayed, controlling the movement of objects in the galaxy, and 
controlling the transfer of energy within the space ship. The subrou¬ 
tines of the Galaxy program reside in VAK bytes of memory on pages 
05 through 09. This is equal to the amount of memory the operating 
portion of the program requires. Thus, one can see that the Galaxy 
program relies heavily on the subroutines to allow it to fit within 4K 
of memory. This section provides the details on the purpose and 
operation of the subroutines used in the Galaxy program. 

The majority of the messages in the Galaxy program are outlined 
by means of the subroutine labeled MSG. This routine, presented be¬ 
low, outputs a string of ASCII characters stored in memory to the 
output device. MSG begins its output with the character pointed to 
by the index register when it is called. It will continue to output 
characters by calling the PRINT routine until a zero byte is encoun¬ 
tered in the character string. The routine then returns to the calling 
program. 


MSG LDAA X 

BEQ MSG1 
JSR PRINT 
INX 

BRA MSG 
MSG1 RTS 


Fetch indexed character 
Character = zero byte? Return 
No, output character 
Advance to next character 
Continue printout 
Output complete, return 
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The next subroutine is a random number generator used to pro¬ 
vide random locations for the initial galaxy setup. It is also used in 
the placement of the alien ships, stars, and space stations each time 
a quadrant is entered by the space ship. The amount of energy an 
alien ship contains is also set up by calling on the random number 
subroutine. This random number routine provides a variation of 
numbers sufficient for use in the Galaxy program, and it can be 
applied to other programs requiring random number selection. The 
listing for the RN routine is presented next. 


RN LDAA RNM 
ROLA 
EORA RNM 
RORA 

INC RNM+$1 
ADDA RNM+$1 
BVC SKIP 
DEC RNM +$1 
SKIP ST A A RNM 
RTS 


Random number subroutine 
Fetch random number and 
Perform a series of 
Operations to generate 
A random value 


Store new random number 
Return with random number in A 


The Galaxy program performs a number of operations involving 
the conversion of numbers from binary to decimal and vice versa for 
inputting and outputting numbers. The next trio of subroutines per¬ 
forms the conversion of double precision binary whole numbers to 
and from decimal, and also checks that digits entered on the key¬ 
board fall within the range of the ASCII code for digits, namely BO 
through B9. The binary-to-decimal routine, labeled BINDEC, con¬ 
verts a single or double precision binary number to its decimal 
equivalent up to five digits long, and stores the result in locations 51 
through 55 on page 00. Accumulator B is set to 01 for a single pre¬ 
cision number, and 02 for a double precision number, and the index 
register is set to the least significant byte of the number to be con¬ 
verted before the BINDEC subroutine is called. The decimal-to- 
binary subroutine, labeled DCBN, converts the decimal values stored 
in locations 51 through 54 on page 00 to the equivalent double pre¬ 
cision binary number which is saved in location 28 for the least sig¬ 
nificant half, and 29 on page 00 for the most significant half of the 
binary value. The FNUM subroutine checks the memory location in¬ 
dicated by the index register for a valid ASCII digit, and returns with 
the N flag reset if it is a valid digit, or set if it is not. The listing for 
these subroutines is presented next. 
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BINDEC 


BNDC 


BD 

BD1 


STX PNTR1 
LDX PDG1ST 
CLR X 
CLR $01 ,X 
CLR $02,X 
CLR $03,X 
CLR $04,X 
LDX PNTR1 
LDAA X 
DECB 
BEQ BNDC 
LDAB $01,X 
ST A A STORE1 
STAB STORE 1+$1 
LDX #$1027 
STX STORE2 
BSR BD 
STAB DGT5TH 
LDX #$E803 
STX STORE2 
BSR BD 
STAB DGT4TH 
LDX #$6400 
STX STORE2 
BSR BD 
STAB DGT3RD 
LDAA #$0A 
STAA STORE 2 
BSR BD 
STAB DGT2ND 
LDAA STOREl 
STAA DGT1ST 
RTS 
CLRB 
INCB 

LDAA STOREl 
SUB A STORE 2 
STAA STOREl 
LDAA STOREl+$l 
SBCA STORE2+$l 
STAA STOREl+$l 
BCC BD1 
LDAA STOREl 
ADDA STORE2 
STAA STOREl 
LDAA STOREl+$l 
ADCA STORE2+$l 
STAA STORE 1+$1 
DECB 
RTS 


Save pointer temporarily 

Set pointer to start of decimal table 

Clear digit table 


Set pointer to binary value 
Get least significant half 
Single precision? 

Yes, most significant half = 0 

No, get most significant half 

Store LS half in temporary storage 

Store MS half in temporary storage+1 

Set up value for 10K 

Store for subtract routine 

Calculate 5th digit 

Store value of 5th digit 

Binary value for IK 

Store for subtract routine 

Calculate 4th digit 

Store value of 4th digit 

Binary value for 100 

Store for subtract routine 

Calculate 3rd digit 

Store value of 3rd digit 

LS half value of 10 decimal 

Store for subtract routine 

Calculate 2nd digit 

Store value of 2nd digit 

Get unit value 

Store value of 1st digit 

Return to calling program 

Clear decimal digit counter 

Increment decimal digit 

Fetch the least significant half 

Subtract LS half of constant 

Save LS half of result 

Fetch most significant half 

Subtract MS half of constant 

Save MS half of result 

If greater than 0, continue subtraction 

Else, restore binary value 

Add LS half back to result 

Restore result in memory 

Fetch MS half of result 

Add MS half back to result 

Restore result in memory 

Decrement decimal digit to correct 

Return 


3 - 10 



DCBN CLR STORE2+$l 
LDAA DGT1ST 
STAA STORE2 
LDAB DGT2ND 
BEQ DC1 
LDX #$0A00 
STX STOREl 
BSR TOBN 

DC1 LDAB DGT3RD 
BEQ DC2 
LDX #$6400 
STX STOREl 
BSR TOBN 

DC2 LDAB DGT4TH 
BEQ DC3 
LDX #$E803 
STX STOREl 
BSR TOBN 

DC3 RTS 

TOBN LDX #STORE2 
JSR TOl 
DECB 
BNE TOBN 
RTS 

FNUM LDAA X 

CMP A #$B0 
BMIFNUMl 
SUB A #$BA 
ADDA #$80 
FNUMl RTS 


Clear MS half of result 

Fetch units digit 

Store in work area 

Fetch ten’s digit 

Digit = 0? Yes, do 100’s digit 

Binary value of 10 

To be added B times 

Add 10’s digit 

Get 3rd digit 

Digit = 0? Yes, do 1000’s digit 

Binary value of 100 

To be added B times 

Add 100’s digit 

Get 4th digit 

Digit = 0? Yes, finished 

Binary value of 1000 

To be added B times 

Add 1000’s digit 

Return, binary value in STOREl 

Set pointer to binary value 
Add value to STOREl 
Multiplier =0? 

No, continue 
Yes, return 

Fetch ASCII character 
Is character a number? 

No, return with N flag set 
Valid number, return with 
N flag reset 


Setting up the sector location of the stars, alien ships, and space 
station within a quadrant each time the space ship enters a new quad¬ 
rant is performed by use of the following group of subroutines. When 
a game is started, the galaxy contents are set up in the last 64 bytes 
of page 00. The initial quadrant location of the space ship is then set, 
and the quadrant contents are moved from the galaxy content table 
to location 35 on page 00 by the QCNT subroutine. The NWQD sub¬ 
routine is then called to set the location of the stars, space station, 
and alien ships in the quadrant. NWQD begins by clearing the sector 
locations of the galactic objects by storing CO in locations 37 
through 41 on page 00. It then determines how many of each object 
is contained in the quadrant, and calls on LOCSET to set the exact 
sector location of each. As each location is set, it is checked against 
the locations of the other objects in the quadrant by the MATCH 
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subroutine. If the new location is already assigned to another object, 
LOCSET selects a new location. As the final step in the NWQD sub¬ 
routine, the energy in the shields of the alien ships is set to random 
levels from 0 to 1023 in the data table. After the game is underway, 
these same subroutines are called to set up the quadrant each time a 
new quadrant is entered. The LOAD subroutine is called at the start 
of the game and each time the space ship docks with the space 
station to restore its energy and set the torpedo count to ten. The 
listings of these subroutines are presented next. 


NWQD 

CLR1 

LDX PSOLSS 
LDAA #$C0 
LDAA #$0B 
STAAX 

INX 

DECB 

BNE CLR1 

Set pointer to star table 

Clear code in A 

Counter in B 

Clear object location table 
Increment table pointer 
Decrement counter 

Not done? Clear more 


LDAB CQC 

ANDB #$07 

BEQ NWQD1 
LDX PSOLSS 

BSR LOCSET 

Else get quadrant contents 

Get number of stars 

If none, check space station 

Set pointer to star table 

Set up star locations 

NWQD1 

LDAA CQC 

JSR ROTR3 

TAB 

ANDB #$01 

BEQ NWQD 2 
LDX PSLSS 

BSR LOCSET 

Get quadrant contents 

Move to space station position 

Set up for LOCSET 

Any space stations? 

No, check alien ships 

Fetch space station table location 
Set position if present 

NWQD2 

LDAA CQC 

JSR ROTR4 

TAB 

ANDB #$03 

BEQ LLAS 

LDX PSLAS1 

BSR LOCSET 

Get quadrant contents 

Position alien count 

Put count in B 

Mask for count 

No aliens, skip positioning 

Set pointer to alien ship location 
Assign alien ship locations 

LDAS 

BSR LLAS 

LDX PVASE1 
BSR LAS 

LDX PVASE2 
BSR LAS 

LDX PVASE3 

Get random numbers 

Pointer to alien ship no. 1 shields 
Store alien ship no. 1 energy 
Pointer to alien ship no. 2 shields 
Store alien ship no. 2 energy 
Pointer to alien ship no. 3 shields 

LAS 

STAAX 

Store least significant half value 
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AND A #$03 

Mask for most significant half 


ST A A $01 ,X 

Store most significant half 

LLAS 

JMP RN 

Get random and return 

LOCSET 

STXPNTR1 

Store table pointer 


BSR LLAS 

Fetch random location 


AND A #$3F 

Mask off most significant bits 


BSR MATCH 

New location match others? 


BEQ LOCSET+$2 

Yes, find new location 


LDXPNTR1 

Fetch table pointer 


STAAX 

Store random location 


INX 

Table pointer to next object 


DECB 

Decrement object counter 


BNE LOCSET 

Counter not =0, do next 


RTS 

Table complete, return 

MATCH 

LDX PSOLSS 

Set pointer to star table 

MATCH2 

CMPAX 

Same sector location? 


BEQ MATCH 1 

Yes, match, return 


INX 

Advance table pointer 


CPX PDVME 

End of table? 


BNE MATCH 2 

No, check next 


INX 

DEX 

Yes, reset Z flag 

MATCH1 

RTS 

Return 

QCNT 

LDAA CQLSS 

Fetch current quadrant 


ORA A #$C0 

Form pointer to galaxy 


JSR ATINX1 

Set pointer to quadrant 


LDAA X 

Fetch quadrant contents 


ST A A CQC 

Store new quadrant contents 


RTS 

Return 

LOAD 

LDX #$8813 

Store double precision value 5000 


sttxdvme 

In main energy store 


LDX #$0000 
STXDVSE 

Set shields to zero 


LDAA #$0A 

STAA NTR 

Load ten torpedoes on board 


RTS 

Return to main program 

ATINX1 

CLR PNTR1 

Clear M.S. half of pointer for page 00 

ATINX 

STAA PNTR1+$1 

Store A in least significant half of pntr 


LDX PNTR1 

RTS 

Load pointer into index register 


The next group of subroutines is called to indicate to the operator 
that the game has ended due to the occurance of one of the follow- 
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ing problems. Either the stardate time has run out (TIME), or the 
space ship has moved out of the known galaxy (LOST), or the space 
ship has smashed into a star (WPOUT), or the space ship has run out 
of energy (EOUT). These subroutines print an advisory message, and 
then jump to the beginning of the program to inquire whether the 
operator desires to try again. The listings for these subroutines are 
presented next. 


TIME 

LDX #$025D 

Stardates time run out - player loses 

DONE 

JSR MSG 

JMPGALAXY 

Print message and start 

A new game 

LOST 

LDX #$02C8 
BRA DONE 

Out of known galaxy 

Player loses 

WPOUT 

LDX #$028D 
BRA DONE 

Smashed into star 

Player loses 

EOUT 

LDX #$0497 
BRA DONE 

Out of energy 

Abandon ship 


The next group of subroutines deals with setting up various mes¬ 
sages for the output display device. The first subroutine, DIGPRT, 
fetches a digit stored in memory, forms the ASCII equivalent, and 
stores the ASCII code in the message to be printed. The index regis¬ 
ter must be set to the location of the least significant digit in the 
message, and the accumulator B must contain a binary count of the 
number of digits to be placed in the message. The BCD digits must 
reside in locations 51 through 54 on page 00 before this subroutine 
is called. The listing for this subroutine is now presented. 


DIGPRT 


DGPRT1 


STX PNTR1 

Save message digit location pointer 

STS PNTR2 

Save stack pointer temporarily 

LDSPNTR1 

Set stack pointer to 1st digit location 

LDX PDG1ST 

Set index to 1st digit 

LDAA X 

Get digit from storage 

INX 

Advance index to next digit 

ORAA #$B0 

Form ASCII code 

PSHA 

Store in message 

DECB 

Decrement digit counter 

BNE DGPRT1 

Not =0? Continue 

LDS PNTR2 

Equals 0, restore stack pointer 

RTS 

And return 
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ROWSET is used by the short range scan routine to set up the 
contents of each row before it is printed. ROWSET first clears the 
row message by filling it with space characters. It then stores the 
ASCII code for the row number at the beginning of the message. The 
location of all of the objects contained in the quadrant is then 
checked to determine whether they are present in the row being pre¬ 
pared for output. If one or more of the objects are located in the 
row, the ASCII code for the symbolic representation of each is 
stored in the row message at the proper column location. The sub¬ 
routine RWPNT is used to check for the location of each object, and 
to set a pointer to the column location within the row message for 
storage of the object’s ASCII representation. When ROWSET is 
called, the B accumulator must contain the binary value of the row 
number. When the row message is set up, the MSG subroutine is 
called to print it. The listings for these two subroutines are given 
next. 


ROWSET 

LDX #$018F 

Set pointer to row message 


LDAA #$A0 

Clear with ASCII space 

RCLR 

STAAX 

Store space character 


INX 

Advance pointer 


CPX #$01A7 

Message cleared? 


BNE RCLR 

No, clear next 


TBA 

OR A A # $B0 

Form ASCII code for row 


STAA #$018E 

Store in message 


DECB 

Set up row number for checkout 


LDX PS LOSS 

Set pointer to object location table 


BSR RWPNT 

Fetch space ship location 


BNE STR 

In this row? 


LDAA #$BC 

Yes, store space ship 


STAAX 

LDAA #$AA 
STAA $01,X 
LDAA #$BE 
STAA $02,X 

Code for printout 

RTR 

LDX PSOLSS 

STX PNTR2 

Set a star table pointer 

STR1 

BSR RWPNT 

Is star in this row? 


BNE NXSTR 

No, pointer to next star 


LDAA #$AA 

Yes, store star code 


STAA $01 ,X 

In proper location 

NXSTR 

INC PNTR2+$1 

Increment star table pointer 


LDXPNTR2 

Put new pointer in index 
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CPX PSLSS 

End of star table? 


BNE STR1 

No, check next star 


BSR RWPNT 

Space station in this row? 


BNE AS 

No, look for alien ships 


LDAA #$BE 

Yes, store space station 


STAAX 

LDAA #$B1 

ST A A $01,X 
LDAA #$BC 
STAA $02 ,X 

Code for printout 

AS 

LDX PSLAS1 

STX PNTR2 

Set alien ship table pointer 

ASl 

BSR RWPNT 

Alien ship in this row? 


BNE NXAS 

No, look for next ship 


LDAA #$AB 

Yes, store code for alien 


STAA X 

STAA $01,X 

STAA $02,X 

Ship printout 

NXAS 

INC PNTR2+$1 

Advance alien ship table pointer 


LDX PNTR2 

Get new pointer 


CPX PDVME 

End of table? 


BNE ASl 

No, try next alien 


LDX #$018C 

Set pointer to print short range scan & 


JMP MSG 

Return 

RWPNT 

LDAA X 

Fetch entry location 


BMIRWPNT1 

No, return 


JSR ROTR3 

Position row entry 


AND A #$07 

Separate row entry 


CBA 

Is row = current row? 


BNE RWPNT 1 

No, return 


LDAA X 

Yes, fetch column location 


AN DA #$07 

Separate column location 


STAA STORE1 

Save column 


ASLA 

Multiply by two 


ADDA STORE 1 
ADDA #$8F 

Form pointer to row message 


CLR PNTR1 

INC PNTR1 

Set up pointer storage to page 01 


JSR ATINX 

Set index pointer from A 


CLRA 

Set zero flag 

RWPNT1 

RTS 

Return 

ROTR4 

ASRA 

Shift accumulator A right 

ROTR3 

ASRA 

ASRA 

ASRA 



RTS 

Return 
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The subroutine labeled QUAD is used to place the row and 
column location of the current quadrant into the QUADRANT R,C 
message. The quadrant message is used in the short range scan and in 
the heading for the long range scan. It fetches the quadrant location 
from the data table and stores the ASCII code for the row and 
column numbers in the message. It then calls MSG to print it. The 
subroutine TWO is called to separate the row and column numbers 
and store them in the proper locations in the message. TWO is also 
used to place the row and column location of the current sector in 
the SECTOR R,C message, which is part of the short range scan 
routine. The listings for QUAD and TWO are presented next. 


QUAD 

LDX #$01D4 

Store temp, quadrant 


STX PNTR1 

Message pointer 


LDX #CQLSS 

Index to quadrant location storage 


BSR TWO 

Put digits in message 


LDX #$01C9 

Index to quadrant message 


JMPMSG 

Print quadrant message and return 

TWO 

LDAAX 

Fetch row and column 


TAB 

Save row and column 


LDXPNTR1 

Get message pointer 

T1 

JSR ROTR3 

Position row number 


AND A #$07 

Mask off other bits 


ADDA #$B1 

Form ASCII code 


STAAX 

Store in message 


ANDB #$07 

Separate column number 


ADDB #$B1 

Form ASCII code 


STAB $02,X 

RTS 

Store column in message 


The final three subroutines of this group are used in the prepara¬ 
tion and output of the long range scan and the galaxy display. The 
NTN subroutine prints the dividing line between rows for each of the 
printouts mentioned. It first outputs a carriage retum/line feed com¬ 
bination, and then prints as many hyphens as are defined in accumu¬ 
lator B. QDSET takes the quadrant contents stored in accumulator A 
and forms the ASCII code for the digits indicating the number of 
alien ships, space stations, and stars in the quadrant, and stores them 
in the message indicated by the index register. QDSET is called by 
the galaxy display routine and LRR. LRR is a subroutine for the 
long range scan routine that sets up each row of the scan for print¬ 
out. The quadrant location in the center of the long range row being 
prepared is contained in the A accumulator when LRR is called. If 
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the left hand quadrant is outside the galaxy, it is set up to be printed 
as all zeros. When the long range row is completed, the MSG routine 
is called to output the row to the display device. The listings for 
these subroutines are presented next. 


NTN 

LDAB #$13 

Set counter 19 dashes 

NT1 

LDAA #$8D 

BSR NT3 

Print carriage return 


LDAA #$8A 

BSR NT3 

Print line feed 

NT2 

LDAA #$AD 

ASCII code for dash 


BSR NT3 

Print 


DECB 

Decrement counter. =0? 


BNE NT2 

No, print more dashes 


RTS 

Yes, return 

NT3 

JMP PRINT 


QDSET 

TAB 

Fetch quadrant contents 


JSR ROTR4 

Position alien ship number 


ANDA #$03 

Mask alien ship number 


ORAA #$B0 

Form ASCII digit 


STAA X 

Store in message 


TBA 

Fetch quadrant contents 


JSR ROTR3 

Position space ship number 


ANDA #$01 

Mask space ship number 


ORAA #$B0 

Form ASCII digit 


STAA $01,X 

Store space ship in message 


ANDB #$07 

Mask star number 


ORAB #$B0 

Form ASCII digit 


STAB $02,X 

Store in message 


RTS 

Return 

CLCl 

CLRA 

Clear column contents 


BRA LR3 

Print 000 quadrant 

CLC2 

CLRA 

Clear column contents 


BRA LR4 

Print 000 quadrant 

LR5 

JMP ATINX1 


LRR 

ORAA #$C0 

TAB 

Set pointer to galaxy 


STAA STORE 1 

Save pointer 


ANDB #$07 

First column? 


BEQ CLCl 

Yes, first column zero 


DECA 

No, back one column 


BSR LR5 

Set quadrant pointer 


LDAA X 

Fetch quadrant contents 

LR3 

LDX #$04C9 

Set pointer to left quadrant 


BSR QDSET 

Set quadrant contents 
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LDAA STORE1 

Get pointer 


BSR LR5 

Set quadrant pointer 


LDAA X 

Fetch quadrant contents 


LDX #$04CF 

Set pointer to middle quadrant 


BSR QDSET 

Set quadrant contents 


LDAA STORE1 
TAB 

Fetch quadrant location 


ANDB #$07 
CMPB #$07 

Is quadrant in last column? 


BEQ CLC2 

Yes, right column =0 


INCA 

Set to right quadrant 


BSR LR5 

Set quadrant pointer 


LDAA X 

Fetch quadrant contents 

LR4 

LDX #$04D5 

Index to right quadrant 


JSR QDSET 

Set quadrant contents 

LRP 

LDX #$04C5 

Set pointer to long range row message 

LR6 

JMP MSG 

Print and return 


The depletion of energy from the space ship’s main storage bank 
and its shields is an important function in this program. The follow¬ 
ing group of subroutines is called to delete the energy from the ship, 
and to check the energy level of the ship. The subroutine labeled 
ELOS deletes the amount of energy contained in the index register 
from the ship’s protective shields. The least significant half of the 
energy to be deleted must be stored in the most significant half of 
the index register, and the most significant half of the energy must 
be stored in the least significant half of the index register. By switch¬ 
ing the two eight bit values around in this manner, the STX instruc¬ 
tion will store the energy in the desired order in memory (the least 
significant half in the lower address of the pair of memory locations). 
The amount of energy deleted is first output to the display device to 
inform the operator of the loss. The shield energy level is checked, 
and if sufficient, the energy is removed from the shield. If the level 
is not high enough to absorb the loss, the remaining shield energy is 
transferred to the main supply, and the loss is taken from the main 
storage bank. If at this time the main supply is not enough, the ship 
is out of energy, and the game is over. Otherwise, since the shield 
energy is zero, the warning message is output and an additional 25 
percent of the energy loss is depleted from the main supply as a 
penalty. The listing of ELOS and its supporting subroutines is shown 
next. 
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ELOS 

STX STORE3 

LDX #STORE3 
LDAB #$02 

JSR BINDEC 

LDX #$0313 

LDAB #$04 

JSR DIGPRT 

LDX #$02FF 

BSR LR6 

LDX STORE3 

STX STORE1 

Save energy value 

Set pointer to value to be converted 
Double precision conversion 

Convert to BCD for message 

Set pntr to least signif digit of energy 
Set digit counter 

Put digit in message 

Set pointer to energy loss message 
Print energy loss message 

Restore value for routines 

To follow 

ELS1 

BSR CKSD 

BCC FMSD 

Is shield energy sufficient? 

Yes, delete from shields and return 

SDOl 

LDX DVSE 

STX STOREl 

BSR FMSD 

BSR TOMN 

LDX STORE3 

STX STOREl 

Move shield energy to main storage 

Remove energy from shields 

Move shield energy to main storage 
Fetch energy to be deleted 

Store for routines 

SDO 

BSR CKMN 

BCSEOUT1 

BSR FMMN 

LDX #$0315 

BSR LR6 

LDAB #$02 

BSR DVD 

BSR CKMN 
BCSEOUT1 

BRA FMMN 

Energy enough? 

No, ship out of energy 

Yes, take from main 

Print WARNING! 

DANGER - SHIELD ENERGY 000 
Divide energy loss by 2 twice 

To divide by 4 

Enough main energy for penalty? 

No, out of energy message 

Yes, take penalty and return 

CKSD 

LDX PDVSE 

BRA CK1 

Check shield energy level 

Against requested level 

CKMN 

LDX PDVME 

Check main energy level 

CK1 

LDAA $01,X 

CMP A STORE 1+$1 
BNEELOSl 

Fetch most significant half 

Is most significant half =0? 

No, return with flags set up 

CK2 

LDAA X 

CMP A STOREl 

RTS 

If > =, return with C flag set 

If less than, C flag reset 

Return 

FMSD 

LDX PDVSE 

BRA FM1 

Set pointer to shield energy 

Subtract energy from shields 

FMMN 

LDX PDVME 

Set pointer to main storage 

FM1 

LDAA X 

SUB A STOREl 

Fetch least significant half of energy 
Subtract least significant half of loss 
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STAA X 

LDAA $01,X 

SBC A STOREl+$l 
STAA $01,X 

RTS 

Return to storage 

Fetch most significant half of energy 
Subtract most significant half of loss 
Return to storage 

TOSD 

LDXPDVSE 

BRA TOl 

Set pointer to shield energy 

Add energy to shields 

TOMN 

LDX PDVME 

Set pointer to main energy 

TOl 

LDAA X 

ADDA STOREl 
STAA X 

LDAA $01,X 

ADCA STOREl+$l 
STAA $01,X 

RTS 

Fetch least significant half of energy 
Add least significant half of loss 
Return to storage 

Fetch most significant half of energy 
Add most significant half of loss 
Return to storage 

DVD 

TSTB 

ROR STOREl+$l 
ROR STOREl 

DECB 

BNE DVD 

Divide the double 

Precision value 

By two the number 

Of times indicated in B 

ELOS1 

E0UT1 

RTS 

JMP EOUT 

Return 


The removal of energy from the main supply for the execution of 
commands, firing phasors and torpedoes, and moving through the 
galaxy is provided by the ELOM subroutine. The amount of energy 
to be removed is stored in the index register (as described in the 
ELOS subroutine) when the ELOM subroutine is called. If the main 
energy bank contains enough energy, the energy is deleted, and the 
subroutine returns to the calling program. If there is not enough 
energy, the shield energy is transferred to the main storage bank in 
an effort to provide for the loss. If this does not provide sufficient 
energy, the game is over. However, if the transfer does produce the 
energy needed in the main supply, the energy will be removed; and 
since the shield energy has been reduced to zero, an additional 25 
percent of the energy loss will be deleted from the main supply as a 
penalty. The listing for ELOM is presented next. 


ELOM BSR CKMN 
BCC FMMN 
LDX STORE1 
STX STORE3 
JMPSDOl 


Enough energy in main? 

Yes, take from main and return 
No, save value of energy loss 

Transfer shield energy and try again 
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The amount of energy transferred to or from the shields and the 
energy to be fired by the phasor is entered by the operator. The EIN 
subroutine is called to input these energy values. The first entry is 
checked to determine whether it is a minus sign, used in the shield 
entry. Location 55 on page 00 will be all zeros if the value is to be 
positive, and non-zero for a negative entry. Each digit entered is 
checked for validity, and then the ASCII code is masked off, resul¬ 
ting in the BCD digits being stored in locations 54 through 51. The 
units digit is stored in location 51. Four digits must be entered by 
the operator when this routine is called. If the input is found to be 
invalid, the routine returns with the N flag set to T.’ If the input is 
valid, the N flag is reset upon returning to the calling program. The 
listing for this routine is presented next. 


EIN 

LDX PDG5TH 

Set pointer to start of digit store 


CLR X 

Clear sign indicator 


JSR INPUT 

Get first character 


CMP A #$AD 

Negative sign? 


BNE EN2 

No, check digit 


ST A A X 

Make negative indicator not =0 

EN1 

JSR INPUT 

Get next character 

EN2 

DEX 

Advance storage pointer 


ST A A X 

Store digit 


JSR FNUM 

Valid digit? 


BMI EIN1 

No, return with N flag set 


LDAA X 

Yes, fetch digit 


AND A #$0F 

Mask off ASCII bits 


STAA X 

Save BCD value 


CPX PDG1ST 

End of input? 


BNE EN1 

No, fetch next digit 

EIN1 

RTS 

Yes, return 

When the 

space ship destroys 

an alien ship or space station, the 


result is the elimination of the alien ship or space station from the 
galaxy. The subroutine DLET is called to perform this function. 
First, the sector location of the object is cleared by storing a CO in 
the data table at the location indicated by the index register. From 
this location, the identity of the object to be deleted is ascertained. 
A pointer is then formed indicating the location of the quadrant in 
the galaxy content table from which the object is to be removed. If 
the object was a space station, it is removed from the galaxy and the 
number of space stations is decremented. If this value goes to zero, a 
warning message is output to inform the operator that the last space 
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station has been destroyed. If an alien ship is destroyed, it is removed 
from the galaxy and its count is decremented. When the number of 
alien ships reaches zero, the game is over and the operator has suc¬ 
cessfully completed the mission. The listing of DLET is shown next. 


DLET LDAA #$C0 
STAAX 
STX PNTR2 
LDAA CQLSS 
ADDA #$C0 
JSR ATINX1 
STX PNTR3 
LDXPNTR2 
JSR COMPAR 
BNE DLAS 
LDX PNTR3 
LDAA X 
AND A #$37 
STAA X 
STAA CQC 
DEC NSS 
BNE DLET1 
LDX #$04DB 
JMP MSG 

DLAS LDX PNTR3 
LDAA X 
SUB A #$10 
STAA X 
STAA CQC 
DEC NAS 
BNE DLET1 
LDX #$03D4 
JMP DONE 
DLET1 RTS 

COMPAR STX PNTR1 

LDAA PNTR1+$1 
CMPA #$3E 
RTS 


Load with clear character 
Clear object from table 
Save table location 
Get quadrant location 
Form galaxy table pointer 
Place pointer in index 
Set table pointer 
Fetch table location 
Space station hit? 

No, delete alien ship 

Fetch galaxy pointer 

Get quadrant contents 

Delete space station 

Restore quadrant in galaxy 

Place new contents 

Decrement number of space stations 

If more left, return 

If number of space stations =0, 

Print warning message & return 

Fetch galaxy pointer 

Get quadrant contents 

Delete 1 alien ship from quadrant 

Restore to galaxy 

Save new contents 

Decrement number of alien ships 

More aliens, return 

All aliens destroyed! 

Print CONGRATULATIONS, 

Start new game 

Store index value 
Fetch low portion of the address 
Set flags for address relative to SLSS 
Return with results 


The final group of subroutines to be presented deals with the 
movement of the space ship through the galaxy, and the tracking of 
the torpedo within the quadrant. Moving an object through the 
galaxy is performed with the use of a table referred to as the 
COURSE TABLE. The course table, presented next, is located at the 
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beginning of page 00, and contains 16 pairs of row and column dis¬ 
placement values. There is one pair of displacement values for each 
possible direction of movement. The first value of each pair is the 
column displacement; the second value is the row displacement. 
The entries in the course table are made up of the binary values 2, 1, 
0, -1, and -2. A displacement of 1 advances the object one half of a 
sector for each sector move made. So, for example, if the course was 
chosen as 8.5, the displacement value for the column is two, and for 
the row is one. This means that for every column moved to the right, 
the object would move one half of a row down. A move is made by 
the program by separating the row and column location of the object 
to be moved, rotating each to the left once, and using the adjusted 
values to calculate the move. Then, for each sector move made, the 
row and column displacement is added to the adjusted row and 
column location. When the move is completed, the adjusted values 
are rotated to the right once, and then combined to give a new sector 
location to the object. By using this method it is possible for the 
direction of travel to be broken down to every 22 l A degrees. 

DISPLACEMENT COURSE 

VALUES SELECTED 


02 

1.0 

00 


02 

1.5 

FF 


02 

2.0 

FE 


01 

2.5 

FE 


00 

3.0 

FE 


FF 

3.5 

FE 


FE 

4.0 

FE 


FE 

4.5 

FF 


FE 

5.0 

00 


FE 

5.5 

01 
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FE 

6.0 

02 


FF 

6.5 

02 


00 

7.0 

02 


01 

7.5 

02 


02 

8.0 

02 


02 

8.5 

01 



The subroutine DRCT is called to input the course direction from 
the operator through the input device. The two digits defining the 
move are checked for validity when entered, and then used to form a 
pointer to the course table. If the input is valid, the routine returns 
with the Z flag reset, and the pointer stored in location 20 on page 
00. If invalid, the Z flag is set before returning. The ACTV subrou¬ 
tine is then called to fetch the displacement values from the course 
table, and store the column displacement in location 2D and the row 
displacement in location 2C. It then sets up the adjusted row and 
column values, and stores them in locations 2E and 2F respectively. 

The subroutine labeled TRK is called to make the individual sec¬ 
tor moves. First, the quadrant crossing flag is cleared. The column 
displacement is then added to the adjusted column location, and a 
quadrant crossing to the left or right is checked. If the crossing did 
occur, the crossing flag is set, and the adjusted column is corrected to 
indicate the new column value. The crossing is then checked for a 
move out of the galaxy, which would be indicated by the TRK sub¬ 
routine returning with the Z flag set. If the move is not out of the 
galaxy, the new quadrant location is stored at location 4C on page 
00. The row displacement is then added to the adjusted row location, 
and a quadrant crossing up and down is checked. If a quadrant is 
crossed, the crossing flag is set and a move out of the galaxy is 
checked. If the crossing is out of the galaxy, the routine returns with 
the Z flag set. Otherwise, the new quadrant location is stored at loca¬ 
tion 4C, and the routine returns with the Z flag reset. The final sub¬ 
routine of this group is called RWCM, and is called to restore the ad¬ 
justed row and column locations to the single byte used to define the 
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final location of the object moved. The listings for these subroutines 
are presented next. 


DRCT 

JSR INPUT 

Input first course number 


CMP A #$B1 

Is input less than 1? 


BCS ZRET 

Yes, illegal input 


CMP A #$B9 

Is input greater than 8? 


BCC ZRET 

Yes, illegal input 


ANDA #$0F 

No, mask off ASCII bits 


ASLA 

If good times 2 


TAB 

And save in temporary storage 


LDAA #$AE 

JSR PRINT 

Print decimal point 


JSR INPUT 

Input second course number 


CMP A #$B0 

Is digit zero? 


BEQ CR1 

Yes, continue process 


CMP A #$B5 

No, is digit =5? 


BNE ZRET 

No, return with Z flag set 

CR1 

ANDA #$01 

Mask off all but first bit 


ABA 

Add first number input 


ASLA 

SUBA #$04 

And form pointer to course table 


ST A A PNTR1+$1 
CLRA 

Save pointer in temporary storage 


STAAPNTR1 

Clear least significant byte of pointer 


INCA 

Reset Z flag 


RTS 

Before returning 

ZRET 

CLRA 

Set Z flag 


RTS 

And return 

ACTV 

STS PNTR2 

Save stack pointer temporarily 


LDS PSTR51 

Set stack to storage area 


LDAA SLOSS 

Get present location 


TAB 

Save temporarily 


ANDB #$07 

Mask out column 


ASLB 

Multiply by 2 


PSHB 

Store adjusted column 


ANDA #$38 

Mask out row 


LSRA 

LSRA 

Set up times 2 value 


PSHA 

Save adjusted row 


LDXPNTR1 

Get displacement table pointer 


LDAA X 

Get column movement 


PSHA 

Store column displacement < 


LDAA $01,X 

Get row movement 


PSHA 

Store row displacement 
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TRK 


NOBK 


RMV 


NO UP 


LDS PNTR2 

RTS 

Restore stack pointer 

CLR CF 

Clear quadrant crossing flag 

LDAA STORE5+$l 

Get adjusted column 

ADDA STORE4+$l 

Add column move 

STAA STORE5+$l 

Save temporarily current column 

BPL NOBK 

If no left crossing, branch 

ANDA #$0F 

Left crossing correction 

STAA STORE5+$l 

And save new adjusted column 

INC CF 

Indicate left crossing 

LDAA CQLSS 

And decrement current column 

ANDA #$07 

Is CQC =0? 

BEQ TRK1 

Yes, return with Z set 

DEC CQLSS 

No, decrement CQC 

BRA RMV 

Do row move 

CMPA #$10 

Quadrant crossing right 

BCS RMV 

No, do row move 

ANDA #$0F 

Yes, correct and 

STAA STORE5+$l 

Save new adjusted column 

INC CF 

Indicate crossing by making 

Crossing flag non-zero 

LDAA CQLSS 

Fetch current quadrant location 

ANDA #$07 

Separate column entry 

INCA 

Increment column entry 

CMPA #$08 

Move out of galaxy 

BEQ TRK1 

Yes, return with flags set 

INC CQLSS 

No, increment quadrant column 

LDAA STORE 5 

Get adjusted row value 

ADDA STORE4 

Add movement 

STAA STORE5 

Save new adjusted row 

BPL NO UP 

If not up, jump 

ANDA #$0F 

Move up one quadrant, correct 

STAA STORE5 

And save new adjusted value 

INC CF 

Make crossing flag non-zero 

LDAA CQLSS 

Decrement quadrant row 

TAB 

Save temporarily 

ANDA #$38 

Is quadrant row =0? 

BEQ TRK1 

Yes, return with Z flag set 

SUBB #$08 

No, decrement current quadrant row 

STAB CQLSS 

Save new current quadrant 

BRA CKX 

Then perform crossing logic 

CMPA #$10 

Quadrant crossing down? 

BCS CKX 

No, check for crossing flag 

ANDA #$0F 

Yes, correct and 

STAA STORE5 

Save new adjusted row 

INC CF 

Indicate crossing 
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LDAA CQLSS 
TAB 

ANDA #$38 
ADDA #$08 
CMP A #$40 
BEQ TRK1 
ADDB #$08 
STAB CQLSS 

CKX BNETRK1 

LDAA #$01 
TRK1 RTS 

RWCM LDAA STORE5+$l 
LSRA 

ANDA #$07 
LDAB STORE5 
ASLB 
ASLB 

ANDB #$38 

ABA 

RTS 


Then increment quadrant row 
Save temporarily 
Separate row entry 
Increment row value 
Out of galaxy? 

Yes, return with Z flag set 
No, increment row 
Save new current quadrant 

Return with Z flag reset 
If not, reset it 


Fetch adjusted column 
Adjust position 
Form column value 
Fetch row 
Position row value 

Form row value 

Form row and column byte 

Return 
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MAJOR ROUTINES OF THE GALAXY PROGRAM 


The main portion of the Galaxy program consists of nine major 
functional routines. The first of these routines provides the initial 
galaxy setup. The contents of each quadrant are randomly selected 
from the galaxy setup table which consists of many possible quad¬ 
rant content arrangements. The selected quadrant arrangements are 
then stored in the galaxy content table. This random selection pro¬ 
vides a different game for the operator each time GALAXY is 
played. 

This routine, labeled GALAXY, is the starting point of the entire 
program. It begins by posing the question, “DO YOU WANT TO GO 
ON A SPACE VOYAGE?” The INPUT routine is then called to input 
the response from the operator. If the response is “N,” the program 
outputs the message “CHICKEN,” and jumps to an address set up by 
the programmer. To insert this jump, the user replaces the three NOP 
instructions with a jump instruction. For any response other than N, 
the program will store the code received in the second byte of the 
random number and proceed to form the galaxy contents to be used 
for this game. 

With the use of the random number generator, various locations 
in the galaxy setup table are selected and stored in the galaxy con¬ 
tent table. When the galaxy content table is filled, the number of 
alien ships and space stations in the newly formed galaxy is calcu¬ 
lated. If the count is not within the limits desired, the contents of 
the galaxy are revised until the proper limits are met. The number of 
alien ships must be between 10 and 31, and the number of space 
stations must be between 2 and 6. These limits may be revised by the 
reader by simply changing the binary values in the compare instruc¬ 
tions which set the limits. Once the galaxy is completed, the values 
indicating the number of space stations and alien ships are stored in 
the data table. The number of stardates is then set to a value of five 
greater than the number of alien ships, and is also stored in the data 
table. The message stating the mission assigned for this game is then 
prepared by storing the ASCII code for the number of alien ships, 
stardates, and space stations in the body of the message, and calling 
the MSG subroutine to output it. This routine finishes by selecting 
the starting quadrant, loading the initial energy and torpedoes for the 
space ship, setting up the locations of the quadrant contents, and 
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setting the start location of the space ship within the quadrant. The 
flow chart and program listing of this routine are presented next. 


GALAXY 

LDS #$0EFF 
JMPSTART 

START 

LDX #$0100 
JSR MSG 


JSR RN 

JSR INPUT 

ST A A RNM+$1 
CMPA #$CE 
BNE OVER 


LDX #$04E2 
JSR MSG 

NOP 

NOP 

NOP 

OVER 

LDAB #$C0 
STAB STORE 1 

GLXSET 

JSR RN 

ANDA #$7F 
LDAB #$0F 
STAB PNTR1 
JSR ATINX 
LDAB X 

LDAA STORE 1 
JSR ATINX1 
STAB X 

INC STORE 1 
BNE GLXSET 

GLXCK 

CLR NSS 

CLR NAS 

LDX #$00C0 

GLXCK1 

LDAA X 

TAB 

ANDA #$08 
ADDA NSS 
STAA NSS 
ANDB #$30 
LSRB 

LSRB 

ADDB NAS 


Set stack pointer to stack area 
Jump to start of Galaxy program 

Set pointer to initial message 
Print introduction 

Increment random number 
Input character 
Store input to randomize 
Character = N? Yes, stop game 
No, set up galaxy 

Print “CHICKEN” 

User defined 
End of program 

Set pointer to galaxy storage 
Save in temporary storage 

Fetch random number 
Form pointer to 
Galaxy table from 
Random number 
Set index to galaxy table 
Get galaxy entry 

Set index to galaxy content table 
Store quadrant contents 
Galaxy contents complete? 

No, fetch more sectors 

Clear space station count 
Clear alien ship count 
Pointer to galaxy content table 

Fetch quadrant contents 
Save in ‘B’ accumulator 
Mask space station 
Add to space station total 
Save space station total 
Mask alien ship 
Position 

Add to alien ship total 
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STAB NAS 

Save alien ship total 


INX 

Increment galaxy content pointer 


CPX #$0100 

End of table? 


BNEGLXCK1 

No, continue adding 


LDAA NSS 

Fetch space station total 


LSRA 

LSRA 

LSRA 

Position total to right 


ST A A NSS 

Store total 


CMP A #$07 

Too many space stations? 


BPL SSPLS 

Yes, delete 1 


CMP A #$02 

Too few? 


BPL CAS 

No, O.K., check alien ships 

SSMNS 

LDAB #$08 

Yes, form mask to 


STAB STORE1 
BRA MNS 

Add one space station 

SSPLS 

LDAB #$F7 

Form and store mask to 


STAB STORE 1 
BRA PLS 

Delete one space station 

ASPLS 

LDAB #$CF 

Form mask to delete 


STAB STORE 1 

One alien ship 

PLS 

JSR RN 

Fetch random number 


ORAA #$C0 

Form galaxy table pointer 


JSR ATINX1 

Place pointer in index 


LDAA STOREl 

Fetch mask 


ANDAX 

Delete from galaxy 

PLS1 

ST A A X 

Store new quadrant contents 


JMP GLXCK 

Check galaxy again 

ASMNS 

LDAB #$10 

Form mask to add 


STAB STOREl 

One alien ship 

MNS 

JSR RN 

Fetch random number 


ORAA #$C0 

Form galaxy table pointer 


JSR ATINX1 

Place pointer in index 


LDAA STOREl 

Fetch mask 


ORAA X 

Add one alien ship to quadrant 


BRA PLS1 

Check galaxy again 

CAS 

LDAA NAS 

Fetch alien ship total 


LSRA 

LSRA 

Position 


ST A A NAS 

Save total 


CMP A #$20 

Too many alien ships? 


BPL ASPLS 

Yes, delete one alien ship 


CMP A #$0A 

Too few? 


BMI ASMNS 

Yes, add one alien ship 
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START 
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LDAA #$05 
ADDA NAS 
ST A A NSR 
LDX #NSR 
LDAB #$01 
JSR BINDEC 
LDX #$014E 
LDAB #$02 
JSR DIGPRT 
LDX #NAS 
LDAB #$01 
JSR BINDEC 
LDX #$013C 
LDAB #$02 
JSR DIGPRT 
LDAA NSS 
ORAA #$B0 
ST A A $015F 
LDX #$0128 
JSR MSG 
JSR RN 
AND A #$3F 
ST A A CQLSS 
JSR QCNT 
JSR LOAD 
JSR NWQD 
LDX PSLOSS 
LDAB #$01 
JSR LOCSET 


Set up five more stardates 

Than alien ships 

Save number of stardates 

Convert binary value 

Set precision counter 

Convert stardate value 

Pointer to stardate count 

Set precision counter 

Put digits in starting message 

Pointer to alien ship value 

Set precision counter 

Convert alien ship value 

Pointer to alien ship count 

Set precision counter 

Put digits in starting message 

Get number of space stations 

Form ASCII digit 

Store in starting message 

Pointer to start of message 

Print starting message 

Fetch starting quadrant 

Mask off MSB’s 

Save current quadrant location 

Fetch current quadrant contents 

Set initial conditions 

Set quadrant contents location 

Pointer to sector location storage 

Set precision counter 

Set initial space ship location 


The next routine, which immediately follows the galaxy setup 
routine, is the short range scan. The location of each of the objects 
contained in the current quadrant is displayed as illustrated in the 
sample short range scan in Chapter One. By the use of the ROWSET, 
BINDEC, DIGPRT, and MSG subroutines, each line of the scan is 
prepared and output to the display device. This routine is entered 
following the galaxy setup to display the initial quadrant; then after 
each move by the space ship either within the quadrant or when a 
new quadrant is entered, and in response to a command to display 
a short range scan. The flow chart and listing for this routine, which 
begins at the label SRSCN, are presented next. 


SRSCN LDX #$0170 
JSR MSG 
LDAB #$01 
JSR ROWSET 
LDAA #$32 
SUBA NSR 
ST A A STORE 1 


Set pointer for short range scan 
Print initial row 
Set row number one 
Set up row for printout 

Calculate stardate number 
Save temporarily 
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LDX PSTR1 
LDAB #$01 
JSR BINDEC 
LDX #$01B6 
LDAB #$02 
JSR DIGPRT 
LDX #$01A8 
BSR SRSCN1 

LDAB #$02 
JSR ROWSET 
LDAA CQC 
LDX #$01C3 
ANDA #$30 
BNE RED 

LDAA #$C7 
ST A A X 
LDAA #$D2 
STAA $01,X 
LDAA #$C5 
STAA $02 ,X 
LDAA #$C5 
STAA $03,X 
LDAA #$CE 
STAA $04,X 
BRA CND 
SRSCN1 JMPMSG 

RED LDAA #$D2 
STAA X 
LDAA #$C5 
STAA $01,X 
LDAA #$C4 
STAA $02,X 
CLR $03,X 
CND LDX #$01B8 
BSR SRSCN1 

LDAB #$03 
JSR ROWSET 
JSR QUAD 

LDAB #$04 
JSR ROWSET 
LDX #$01E3 
STX PNTR1 
LDX PSLOSS 
JSR TWO 
LDX #$01D8 
BSR SRSCN1 

LDAB #$05 
JSR ROWSET 
LDX PDVME 


Set pointer to binary value 
Set precision counter 
Convert to current stardate 
Set pointer to stardate message 
Set counter to number of digits 
Put digits in stardate message 
Set pointer to message 
Print stardate message 

Set row number two 
Set up row for printout 
Fetch current quadrant contents 
Set pointer to condition message 
Alien ship in quadrant? 

Yes, condition red 

No, condition green 
Fill in ‘GREEN’ in 
Condition message 


Output condition message 


Condition red 
Fill in ‘RED’ in 
Condition message 


Set pointer to condition message 
Print condition message 

Set row number three 
Set up for printout 
Print current quadrant 

Set row number four 
Set up for printout 
Set up sector message 
Pointer in storage 
Pointer to current sector 
Put two digits in message 
Set pointer to sector message 
Print sector message 

Set row number five 
Set up row for printout 
Set pointer to main energy 
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LDAB #$02 

Set precision counter 

JSR BINDEC 

Convert to decimal 

LDX #$01F5 

Message pointer 

LDAB #$04 

Counter for four digits 

JSR DIGPRT 

Put digits in message 

LDX #$01E7 

Set pointer to energy message 

BSR SRSCN1 

Print energy message 

LDAB #$06 

Set row number six 

JSR ROWSET 

Set up for printout 

LDX #NTR 

Pointer to torpedo count 

LDAB #$01 

Precision =1 

JSR BINDEC 

Convert to decimal 

LDX #$0203 

Set pointer to torpedo message 

LDAB #$02 

Counter to number of digits 

JSR DIGPRT 

Put number of torpedoes in message 

LDX #$01F7 
JSR SRSCN1 

Print torpedo message 

LDAB #$07 

Set row number seven 

JSR ROWSET 

Set up row for printout 

LDX PDVSE 

Set pointer to shield energy 

LDAB #$02 

And set precision for 

JSR BINDEC 

Binary to decimal conversion 

LDX #$0213 

Set pointer to shield energy message 

LDAB #$04 

Set digit count 

JSR DIGPRT 

Put digits in memory 

LDX #$0205 

Set pointer to shield message 

JSR MSG 

Print shield message 

LDAB #$08 

Set row number eight 

JSR ROWSET 

Set up row for printout 

LDX #$0170 

Set pointer to final row 

JSR MSG 

Print final row 


The commands, input by the operator to direct the operation of 
the space ship, are controlled by the COMMAND INPUT routine, 
labeled CMND. This routine (which immediately follows the short 
range scan) begins by deleting ten units of energy from the main 
storage bank to simulate the loss of energy resulting from the opera¬ 
tion of the ship’s control panel. The second byte of the random num¬ 
ber storage is then decremented to increase the random number 
generator’s overall randomness. The command request message is 
then output to the display device, followed by a call to the input 
routine to receive the command from the input device. If the charac¬ 
ter input matches one of the ASCII codes (indicating a valid com¬ 
mand), the proper routine is entered to perform the command. If the 
character is not a valid command entry, the program simply requests 
the command input again. The flow chart and listing for the com¬ 
mand input routine are presented next. 
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CMND 

LDX #$0A00 
STX STOREl 
JSR ELOM 
DEC RNM+$1 

CMD 

LDX #$0215 
JSR MSG 

JSR INPUT 

CMP A #$B0 
BNE NCRSE 
JMP CRSE 

NCRSE 

CMP A #$B1 
BNE NSRSCN 
JMP SRSCN 

NSRSCN 

CMP A #$B2 
BNE NLRSCN 
JMP LRSCN 

NLRSCN 

CMP A #$B3 
BNE NGXPRT 
JMP GXPRT 

NGXPRT 

CMP A #$B4 
BNE NSHEN 
JMP SHEN 

NSHEN 

CMP A #$B5 
BNE NPHSR 
JMP PHSR 

NPHSR 

CMP A #$B6 
BNE CMD 

JMP TRPD 


Delete ten units of energy 
For each command 

Randomize random number 

Set pointer to command message 
Request command input 
Input command 

Ship movement? 

No, try next 
Yes, input course 
Short range scan? 

No, try next 

Yes, display quadrant 

Long range scan? 

No, try next 

Yes, print long range scan 
Galaxy printout? 

No, try next 
Yes, print galaxy 
Shield energy? 

No, try next 
Yes, adjust shields 
Phasor control? 

No, try next 
Yes, fire phasors 
Torpedo shot? 

No, illegal command, try again 
Yes, shoot torpedo 


The long range scan routine outputs the contents of the current 
quadrant and the eight quadrants which immediately surround it. 
The number of alien ships, space stations, and stars in each of these 
quadrants is displayed as described in the first chapter. A message 
is output first indicating the current quadrant location of the space 
ship. The contents of the three quadrants in the row above the 
current quadrant are then output by calling the LRR subroutine. 
If this top row is outside the galaxy, the contents will be output as 
all zeros by use of the RWC routine. The row containing the current 
quadrant is then output, followed by the row below the current 
quadrant. If this bottom row is outside the galaxy, its contents will 
be displayed as all zeros. A dividing line of dashes is output between 
each row. At the completion, the routine returns to input a new 
command. The long range scan routine begins at the label LRSCN. 
The flow chart and listing for this routine are presented next. 
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LRSCN 

LDX #$024D 

Set pointer to long range message 


JSRMSG 

Print long range scan 


JSR QUAD 

Print quadrant location 


BSR LRSCN 1 

Print row of dashes 


LDAA CQLSS 

Fetch current quadrant 


TAB 

Save temporarily 


ANDB #$38 

Current quadrant in row no. 1? 


BEQ RWC1 

Yes, top row clear 


SUB A #$08 

Indicate row -1 


JSR LRR 

Set up and print top row 

LR1 

BSR LRSCN1 

Print separating row 


LDAA CQLSS 

Fetch current quadrant 


JSR LRR 

Set up and print middle row 


BSR LRSCN1 

Print separating row 


LDAA CQLSS 

Fetch current quadrant 


CMP A #$38 

Current quadrant in row no. 8? 


BCC RWC2 

Yes, bottom row clear 


ADDA #$08 

No, set quadrant row +1 


JSR LRR 

Set and print bottom row 

LR2 

BSR LRSCN 1 

Print bottom border 


JMPCMND 

Input next command 

LRSCN1 

JMP NTN 


RWC1 

BSR RWC 

Print clear row 


JMP LR1 

Continue long range scan 

RWC2 

BSR RWC 

Print clear row 


JMP LR2 

Finish long range scan 

RWC 

LDX #$04C9 

Set pointer to left quadrant 


CLRA 

Set zero entry 


JSR QDSET 

Set quadrant contents 


LDX #$04CF 

Set pointer to middle quadrant 


CLRA 

Set zero entry 


JSR QDSET 

Set quadrant contents 


LDX #$04D5 

Set pointer to right quadrant 


CLRA 

Set zero entry 


JSR QDSET 

Set quadrant contents 


JMP LRP 

Print long range row 


The galaxy display routine produces an output of the entire galaxy 
contents to the display device in a format similar to that of the long 
range scan. The display is used to provide the operator with a map 
from which a course may be charted for the mission. The contents of 
a complete row are set up in the galaxy printout message on page 00 
by calling the QDSET subroutine, and then the row is output to the 
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display device. A dividing line of dashes is output between each row. 
When the output is finished, the routine returns to the command in¬ 
put routine. The galaxy display routine flow chart and listing are 
presented next. 


GXPRT LDX #$0422 
JSR MSG 
LDAB $31 
JSR NT1 

LDX #$00C0 
STX PNTR1 
GL1 LDX #$0084 
STX PNTR2 
GL2 LDX PNTR1 
CPX #$0100 
BEQ GL3 
LDAA X 
INX 

STXPNTR1 
LDX PNTR2 
JSR QDSET 
LDAA #$06 
ADDA PNTR2+$1 
STAA PNTR2+$1 
CMPA #$B4 
BNE GL2 

LDX #$0080 
JSR MSG 
LDAB #$31 
JSR NT1 
BRA GL1 

GL3 JMP CMND 


Print GALAXY DISPLAY 


Print border 

Set pointer to galaxy 
Store temporarily 
Set up message pointer 
Store temporarily 
Fetch galaxy pointer 
End of printout? 

Yes, input next command 
Get quadrant contents 
Advance pointer 
Restore to memory 
Set up message pointer 
Set quadrant contents in MSG 

Advance message pointer 
Restore to memory 
This end of line? 

No, set next quadrant 

Print current line of galaxy 

Print border 
Set up next line 

End, return to command input 


The shield routine transfers energy between the main energy 
supply and the protective shields as designated by the operator. The 
routine begins by requesting the operator to enter the amount of 
energy to be transferred. The EIN routine is called to input the 
energy from the input device. The input is then converted to its 
binary value and the sign of the input is checked. If a minus sign was 
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entered preceeding the energy input, the energy is transferred from 
the shield energy to the main energy storage. If only the four digits 
are entered, the transfer of energy goes from the main supply to the 
shields by jumping to the routine labeled POS. In either case, the 
supply from which the energy is to be taken is checked to determine 
whether there is enough energy for the transfer. If there is not 
enough, a message is output to inform the operator, and the routine 
returns to the command input routine. If there is sufficient energy, 
the transfer will be completed and the program will return to the 
command input routine. This routine begins at the label SHEN. The 
flow chart and listing are presented next. 


SHEN LDX #$0330 
JSRMSG 
JSR EIN 
BMI SHEN 


Print SHIELD ENERGY 
TRANSFER = 

Input energy amount 
Invalid input, try again 
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JSR DCBN 
LDX STORE2 
STX STORE1 
LDAA DGT5TH 
BEQ POS 
JSR CKSD 
BCSNE 
JSR FMSD 
JSR TOMN 
BRA SHEN1 

POS JSR CKMN 
BCS NE 


Convert to binary 

Transfer binary amount for 

Routines to follow 

Test if have sign 

No, transfer main to shields 

Check shield energy 

Not enough, print message 

Subtract from shields 

Add to main 

Input new command 

Check main energy 

Not enough, display message 
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JSR FMMN 

Subtract from main 


JSR TOSD 

Add to shields 


BRA SHEN1 

Input new command 

NE 

LDX #$034C 

Print NOT ENOUGH 


JSR MSG 

ENERGY 

SHEN1 

JMP CMND 

Input new command 


The movement routine is called when it is desired to move the 
space ship within the galaxy. The course direction is input by calling 
the DRCT subroutine, which returns with the pointer to the course 
table stored in the temporary pointer storage labeled PNTR1. The 
distance, or warp factor, is then entered, and the binary count of the 
number of sectors to be traversed is stored in the counter storage 
labeled CNTR. The ACTV subroutine is called to set up the adjusted 
row and column values used by the TRK subroutine in advancing the 
space ship. The crossing indicator is cleared before the routine begins 
the actual movement of the space ship. The crossing indicator is used 
at the end of the move to indicate whether one or more quadrant 
borders have been crossed. 

Movement of the space ship begins at the label MOV which first 
calls TRK to move the space ship one sector. If the return from TRK 
indicates the space ship is outside the known galaxy, the LOST sub¬ 
routine is called, which ends the current game. Otherwise, a quad¬ 
rant crossing is checked by reading the crossing flag. If a crossing did 
not occur, the program checks for a possible collision. However, if 
the space ship did cross a quadrant border, the crossing indicator is 
set, 25 units of energy are deleted from the main supply, and the 
new quadrant is set up. 

The routine then checks for a collision between the space ship and 
the other objects in the quadrant. If a collision occurs within the 
initial quadrant, the result will be one of the following. For a 
collision with a star, the game will end by jumping to the WPOUT 
subroutine. A collision with a space station results in the elimina¬ 
tion of the space station and the loss of 600 units of energy from the 
ship’s shields. Finally, a collision with an alien ship results in its 
elimination, and a loss of 1500 units of energy from the space ship’s 
shields. 

After a collision with a space station or alien ship, or if there was 
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no collision, the move is continued by decrementing the warp factor 
and, if not zero, returning to MOV to move the space ship one more 
sector. When the warp factor reaches zero, the crossing indicator is 
checked, and if set, the stardate counter is decremented. When the 
stardate counter goes to zero, the operator has run out of time and 
the game ends by jumping to the TIME subroutine. 

The location of the space ship is then checked against the location 
of the other objects in the quadrant. If the space ship is in the same 
sector as another object in the quadrant, the other object is moved. 
This coincidence may occur when the space ship moves into a new 
quadrant, since a collision outside the original quadrant is ignored in 
the collision routine. 

The final operation of this routine is to check for a docking with a 
space station. This can only occur when the space ship completes its 
move by residing in a sector on either side of the space station. The 
space ship is not docked when it is in the sector above or below the 
space station. If the space ship is docked, its energy banks and tor¬ 
pedo tubes are refilled. The flow chart and listing for the movement 
routine are now presented. 


LDX #$0220 

Set pointer to course message 

JSR MSG 

Request course input 

JSR DRCT 

Input course direction 

BEQ CRSE 

Input error, try again 

LDX #$0233 

Index to WARP message 

JSR MSG 

Request warp input 

JSR INPUT 

Input warp factor digit 1 

CM PA #$B0 

Is digit less than 0? 

BCS WRP 

Yes, request input again 

CM PA #$B8 

Is digit greater than 7? 

BCC WRP 

Yes, try again 

ANDA #$07 

Mask off ASCII code 

ASLA 

Position to 3rd bit 

ASLA 


ASLA 


TAB 

Store temporarily in B 

LDAA #$AE 

Print decimal point 

JSR PRINT 


JSR INPUT 

Input 2nd warp factor digit 

CMPA #$B0 

Is digit less than 0? 

BCS WRP 

Yes, request input again 

CMPA #$B8 

Is input greater than 7? 
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BCC WRP 

Yes, no good, try again 


AND A #$07 

Mask off ASCII code 


ABA 

Add warp digit 1 


BEQ WRP 

If 0, no good, try again 


STAA CNTR 

Store warp factor as counter 


JSR ACTV 

Fetch adjusted row and column 


CLR Cl 

Clear crossing indicator 

MOV 

JSRTRK 

Track one sector 


BNE MOV1 

Out of galaxy? No 


JMP LOST 

Yes, lost in space 

MO VI 

LDAA CF 

No, quadrant crossed? 


BEQ CLSN 

No, check for collision 


STAA Cl 

Make crossing indicator non-zero 


LDX #$1900 

Delete 25 units of energy 


STX STORE1 

JSR ELOM 

From main supply 


JSR QCNT 

Fetch new quadrant contents 


JSR NWQD 

Set up new quadrant 

CLSN 

JSR RWCM 

Form row and column byte 


JSR MATCH 

Collision? 


BNE MVDN 

No, complete move 


JSR COMPAR 

What was hit? 


BEQ SSOUT 

Space ship collision! 


BCC ASOUT 

Alien ship collision! 


LDAA Cl 

Star, initial quadrant? 


BNE MVDN 

No, ignore collision 


JMP WPOUT 

Yes, ship wiped out! 

MVDN 

DEC CNTR 

Decrement warp factor 


BNE MOV 

Not zero, continue move 


LDAA Cl 

Fetch crossing indicator 


BEQ NOX 

Quadrant not crossed, continue move 


DEC NSR 

Decrement stardate counter 


BNE NOX 

Not zero, continue 


JMP TIME 

Ran out of time, start new game 

NOX 

JSR RWCM 

Form row and column byte 


STAA SLOSS 

Save new sector 


JSR MATCH 

Was last move a collision? 


BNE NO XI 

No, check for docking 


JSR CHNG 

Yes, change object location 

NO XI 

JSR DKED 

Check for docking 


JMP SRSCN 

Do short range scan 

SSOUT 

LDAA Cl 

Test if initial quadrant 


BNE MVDN 

No, no loss 


JSR DLET 

Remove space station from galaxy 
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LDX #$03BA 
JSR MSG 

Indicate loss of space station 


LDX #$5802 

Then delete 600 units 


STX STORE1 

Of energy from sheilds 

SSOl 

JSR ELOS 

Delete energy 


JMP MVDN 

Finish move 

ASOUT 

LDAA Cl 

Test if initial quadrant 


BNE MVDN 

No, no loss 


JSR DLET 

Yes, delete alien ship 


LDX #$037F 
JSR MSG 

Print alien ship destroyed message 


LDX #=$DC05 

Delete 1500 units of 


STX STOREl 

BRA SSOl 

Energy from space ship 

CHNG 

LDAB #$01 

Set number of objects counter 


JMP LOCSET 

Move object and return 

DKED 

LDAA SLSS 

Is space station in quadrant? 


BPL DKED1 

Yes, continue 


RTS 

No, complete move 

DKED1 

ANDA #$38 

Mask out row 


LDAB SLOSS 

Fetch space ship location 


ANDB #$38 

Mask out row 


CBA 

Same row? 


BNE DKED2 

No, return 


LDAA SLSS 

Fetch space station location 


LDAB SLOSS 

Fetch space ship location 


ADDB #$01 

CBA 

Docked on right? 


BEQ DKED3 

Yes, reload 


SUBB #$02 

No, check left docking 


CBA 

Docked on left? 


BEQ DKED3 

Yes, reload 

DKED2 

RTS 

No, return 

DKED3 

JMP LOAD 

Reload space ship and return 


The torpedo routine fires a torpedo in the direction specified by 
the operator in an attempt to destroy an alien ship. This routine first 
checks the number of torpedoes available. If there are no torpedoes 
remaining, a message in output to inform the operator, and the rou¬ 
tine returns to the command routine. If there is a torpedo available, 
the torpedo count is decremented, and 250 units of energy are de¬ 
pleted from the main storage bank. The DRCT subroutine is then 
called to input the direction of fire for the torpedo. The ACTV sub¬ 
routine then sets the adjusted row and column values for tracking 
the torpedo. 
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Once the trajectory is set up, the torpedo is moved one sector at 
a time, using the TRK subroutine. If the torpedo moves out of the 
quadrant, it has missed its intended target and the alien ship re¬ 
taliates by firing 200 units of phasor energy back at the space ship. 
Otherwise, the sector location of the torpedo is output in the track¬ 
ing message so that the operator can follow the torpedo’s path. The 
MATCH subroutine checks for a collision after each sector 
moved. If there is no collision at this sector, the torpedo will be 
tracked another sector by returning to the TR2 label in this routine. 
If an alien ship has been hit, it is removed from the galaxy. If it is 
the last alien ship, the mission is complete, and the program begins a 
new game. If a space station is hit, it is eliminated and the alien ship 
will retaliate as mentioned above. If a star is hit, the torpedo has 
missed its mark and the alien ship will again retaliate for the 
attempted attack. The program then returns to the command input 
routine. The torpedo flow chart and listing are presented next. 


TRPD 


TRPDl 

TR1 


TR2 


LDAA NTR 

Any torpedoes left? 

BEQ NTPD 

No, print no torpedo message 

DEC NTR 

Yes, delete one 

LDX #$FA00 

Setup 250 units 

STXSTORE1 

Of energy to delete 

JSR CKMN 

Enough in main supply? 

BCC TRPDl 

Yes, continue 

JMP NE 

No, report not enough energy 

JSR FMMN 

Delete from main 

LDX #$0360 

BSR TR3 

Print TORPEDO TRAJECTORY = 

JSR DRCT 

Input direction 

BEQ TR1 

Input invalid, try again 

JSR ACTV 

Form adjusted row and column 

LDAA CQLSS 

Save current quadrant 

STAA CNTR 

Location in temporary storage 

JSR TRK 

Move torpedo one sector 

BEQ QOUT 

Out of galaxy? Yes, missed 

LDAA CF 

Quadrant crossed? 

BNE QOUT 

Yes, missed 

JSR RWCM 

TAB 

No, form row and column byte 

STAA STORE 1 

Move to temporary storage 

LDX #$041E 

Set up tracking message 

JSRT1 

Print TRACKING: R,C 

LDX #$0412 

Form message pointer 

BSR TR3 

Print message 
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LDAA STORE 1 
JSR MATCH 

BEQ HIT 

JMP TR2 

Fetch row and column byte 

Torpedo hit anything? 

Yes, analyze 

No, continue tracking 

HIT 

JSR COMPAR 

BCS QOUT 

BEQ SSTA 

JSR DLET 

LDX #$037F 

BSR TR3 

BRA CMND1 

What was hit? A star? 

Yes, missed alien ship 

Space station? Yes, delete space station 
No, delete alien ship 

Print alien ship hit message 

Input new command 

TR3 

JMP MSG 

Print message and return 

SSTA 

JSR DLET 

LDX #$03BA 
BSR TR3 

Delete space station from galaxy 

Print message of loss of 

Space station 

QOUT 

LDAA CNTR 

ST A A CQLSS 

JSR WASTE 

LDX #$0396 

JSR MSG 

LDX #$C800 

JSR ELOS 

BRA CMND1 

Restore current quadrant location 
of the space ship 

See if any alien ships in quadrant 

No, print missed message 

Set up loss of 200 units of energy 

Due to alien ship retaliating 

Input new command 

NTPD 

LDX #$04B6 

JSR MSG 

Print no torpedo message 

CMND1 

JMP CMND 

Input new command 

WASTE 

LDAA CQC 

AND A #$30 

BEQ WASTE 1 

RTS 

Fetch quadrant contents 

Mask out alien ship count 

If none, wasted shot 

Otherwise, return 

WASTE 1 

PULB 

PULB 

LDX #$0479 

JSR MSG 

JMP CMND 

Remove unwanted address 

From stack 

Set pointer to wasted shot message 
Print message 

Input new command 


The phasor routine fires a designated amount of phasor energy at 
the alien ships in the quadrant. The EIN subroutine is called to input 
the energy to be fired. The amount of energy entered is then deleted 
from the main storage bank. The number of alien ships in the im¬ 
mediate quadrant is then determined to calculate the amount of 
energy to be fired at each. If there are no alien ships, a message is 
output indicating the energy fired was wasted. The amount of phasor 
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energy to be fired at the alien ships is calculated and saved for use by 
the ASPH subroutine. 

The ASPH subroutine is called to fire the phasor at each of the 
three possible alien ships in the quadrant. It first ascertains the 
presence of the particular alien ship by looking for its row and 
column location in the data table. If this location contains a CO, no 
alien ship is located here and the routine simply returns. Otherwise, 
this row and column location is output to inform the operator which 
alien ship is about to be attacked. The distance between the space 
ship and the alien ship, as defined in Chapter One, is then calculated 
and the distance factor is used to determine how much of the phasor 
energy actually reaches the alien ship. This energy is subtracted from 
the alien ship’s shield energy, and if the result is zero or less, the alien 
ship is destroyed. A message is output to inform the operator of its 
destruction. If the alien ship is not destroyed, the new energy level of 
the alien ship’s shields is output and, in retaliation, the alien ship 
fires a phasor equal to one quarter of its shield energy at the space 
ship. When the ASPH subroutine has completed its operation, it re¬ 
turns to the phasor routine. After all alien ships in the quadrant have 
been fired upon, the phasor routine returns to the command input 
routine. The phasor routine flow chart and listing is now presented. 


PHSR LDX #$0433 
BSR TR3 
JSR EIN 
BMI PHSR 
JSR DCBN 
LDX STORE2 
STX STORE1 
JSR ELOM 
JSR WASTE 
PHS1 JSR ROTR4 
SUBA #$01 
BEQ PHI 
TAB 

JSR DVD 


Print ‘PHASOR ENERGY TO FIRE=’ 

Input energy amount 
Input error? Try again 
Convert decimal to binary 
Move binary energy value to proper 
Storage for ELOM routine 
Delete energy from main supply 
Check for presence of alien ships 
Position alien ship number 

1 alien ship, full energy 

2 alien ships, half energy 

3 alien ships, Vt energy 
Divide energy accordingly 


PHI LDX STORE 1 
STX STORE4 
LDX PVASE1 
STX PNTR3 
LDX PSLAS1 
JSR ASPH 
LDX PVASE2 


Fetch energy amount 

Save energy amount 

Fetch pointer to alien ship no. 1 energy 

Save pointer for ASPH routine 

Pointer to alien ship no. 1 position 

Fire phasor at alien ship no. 1 

Fetch pointer to alien ship no. 2 energy 


4-24 




4-25 















STX PNTR3 

Save pointer for ASPH routine 


LDX PSLAS2 

Pointer to alien ship no. 2 position 


JSR ASPH 

Fire phasor at alien ship no. 2 


LDX PVASE3 

Fetch pointer to alien ship no. 3 energy 


STX PNTR3 

Save pointer for ASPH routine 


LDX PSLAS3 

Pointer to alien ship no. 3 position 


JSR ASPH 

Fire phasor at alien ship no. 3 


BRA CMND1 

Input new command 

ASPH 

STX PNTR2 

Save position pointer 


LDAA X 

Fetch alien ship location 


BPL ASPHl 

Any alien ship in location? 


RTS 

No, return 

ASPH1 

LDX STORE4 

Restore energy value 


STX STOREl 

Move to temporary storage 


LDX #$0465 

Set up pointers 


STX PNTR1 

To fill in alien ship location 


LDX PNTR2 

In message 


JSR TWO 

Set sector coordinates 


LDX #$044E 

JSR MSG 

Print ’ALIEN SHIP AT SECTOR X,Y:’ 


LDX #SLOSS 

Fetch sector location of the space ship 


BSR SPRC 

Separate row and column values 


ST A A STORE2 

Save row of space ship 


ST A A STORE2+$l 

Save column of space ship 


LDX PNTR2 

Fetch pointer to alien ship location 


BSR SPRC 

Separate row and column values 


SUBA STORE2 

Create row difference 


BPL PH2 

Make absolute difference 


NEGA 

By negating a negative value 

PH 2 

SUBB STORE2+$l 

Create column difference 


BPL PH3 

Make absolute difference 


NEGB 

By negating a negative value 

PH 3 

ABA 

Add absolute differences 


LSRA 

Divide by 4 to 


LSRA 

Form the distance factor 


ANDA #$03 

Of energy to reach alien ship 


TAB 

Store in B 


BEQ PH4 

Make sure not zero 


JSR DVD 

Calculate energy that reached alien ship 

PH4 

LDX PNTR3 

Subtract from shield energy 


JSR FM1 

Of alien ship 


BMI DSTR 

If negative, alien ship is destroyed 


BNE ALOS 

If non-zero, print alien ship energy 


TST X 

Alien ship energy = 0? 


BEQ DSTR 

Yes, remove from galaxy 

ALOS 

LDAB #$02 

Set precision counter 


JSR BINDEC 

Convert alien ship energy to decimal 


LDX #$0477 

Set digits in message 
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LDAB #$04 
JSR DIGPRT 
LDX #$046B 
JSR MSG 
LDX PNTR3 
LDAA X 
ST A A STORE1 
LDAA $01,X 
STAA STORE1+$01 
LDAB #$02 
JSR DVD 
LDX STORE 1 
JMP ELOS 


Set number of digits counter 
Put digits in message 
Print energy of alien ship 

Set pointer to alien ship energy 
Transfer alien ship energy 
To STOREl for calculating 
Retaliation amount 

Divide energy by 4 as 
Retaliation by alien ship 
Place energy into index register 
Remove from shield energy, return 


DSTR LDX #$03CA Print ‘DESTROYED’ 

JSR MSG 

LDX PNTR2 Fetch alien ship location 

JMP DLET Remove alien ship from galaxy, return 


SPRC LDAA X Fetch row and column byte 

TAB Save for column value 

JSR ROTR3 Position row to right 

ANDA #$07 Mask out row value 

ANDB #$07 Mask out column value 

RTS Return 
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6800 ASSEMBLED LISTING 


This chapter contains the assembled listing for the 6800 Galaxy 
program. The assembled listing provides the memory addresses and 
machine code for the mnemonics which make up the Galaxy pro¬ 
gram. All that is required is to add the reader provided I/O driver 
routines for the specific devices available on one’s system. These 
routines must follow the guidelines described in Chapter Two. For 
systems that use the MIKBUG** program for I/O, sample routines 
for input and output via MIKBUG** are presented at the end of this 
listing. 

The first portion of the listing indicates the usage of page 00 for 
the course table, temporary data storage, the galaxy display message, 
and the galaxy content table. The galaxy display message on page 00, 
the messages of page 01 through 04, and the galaxy setup table on 
page OF are presented as octal dumps. 

The start of execution address for the Galaxy program as pre¬ 
sented herein is page 05 location 00. 


0000 

02 

$02 

Course 1.0 

0001 

00 

$00 


0002 

02 

$02 

Course 1.5 

0003 

FF 

$FF 


0004 

02 

$02 

Course 2.0 

0005 

FE 

$FE 


0006 

01 

$01 

Course 2.5 

0007 

FE 

$FE 


0008 

00 

$00 

Course 3.0 

0009 

FE 

$FE 


000A 

FF 

$FF 

Course 3.5 

000B 

FE 

$FE 


oooc 

FE 

$FE 

Course 4.0 

000D 

FE 

$FE 


000E 

FE 

$FE 

Course 4.5 

000F 

FF 

$FF 


0010 

FE 

$FE 

Course 5.0 

0011 

00 

$00 


0012 

FE 

$FE 

Course 5.5 

0013 

01 

$01 


0014 

FE 

$FE 

Course 6.0 

0015 

02 

$02 


0016 

FF 

$FF 

Course 6.5 

0017 

02 

$02 
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0018 

00 

$00 


Course 7.0 


0019 

02 

$02 




001A 

01 

$01 


Course 7.5 


001B 

02 

$02 




001C 

02 

$02 


Course 8.0 


001D 

02 

$02 




00 IE 

02 

$02 


Course 8.5 


001F 

01 

$01 



0020 



PNTR1 

RMB $2 

Temp pointer storage area 

0022 



PNTR2 

RMB $2 


0024 



PNTR3 

RMB $2 


0026 



STORE 1 

RMB $2 

Temp data storage area 

0028 



STORE2 

RMB $2 


002A 



STORE3 

RMB $2 


002C 



STORE4 

RMB $2 


002E 



STORE5 

RMB $2 


0030 



CNTR 

RMB $1 

Temporary counter storage 

0031 



Cl 

RMB $1 

Crossing indicator 

0032 



CF 

RMB $1 

Crossing flag 

0033 



RNM 

RMB $2 

Random number storage 

0035 



CQC 

RMB $1 

Current quadrant’s contents 

0036 



SLOSS 

RMB $1 

Sector location of space ship 

0037 



SOLSS 

RMB $7 

Sector location of stars 

003E 



SLSS 

RMB $1 

Sector location of space station 

003F 



SLAS1 

RMB $1 

Sect. loc. of alien ship no. 1 

0040 



SLAS2 

RMB $1 

Sect. loc. of alien ship no. 2 

0041 



SLAS3 

RMB $1 

Sect. loc. of alien ship no. 3 

0042 



DVME 

RMB $2 

Energy in main supply 

0044 



DVSE 

RMB $2 

Energy in shields 

0046 



VASE1 

RMB $2 

Alien ship no. 1 energy 

0048 



VASE2 

RMB $2 

Alien ship no. 2 energy 

004A 



VASE3 

RMB $2 

Alien ship no. 3 energy 

004C 



CQLSS 

RMB $1 

Quadrant loc. of space ship 

004D 



NTR 

RMB $1 

Number of torpedoes 

004E 



NSS 

RMB $1 

Number of space stations 

004F 



NAS 

RMB $1 

Number of alien ships 

0050 



NSR 

RMB $1 

Number of star dates left 

0051 



DGT1STT 

RMB $1 

Digit storage for 

0052 



DGT2ND 

RMB $1 

Binary to decimal and 

0053 



DGT3RD 

RMB $1 

Decimal to binary 

0054 



DGT4TH 

RMB $1 

Conversion 

0055 



DGT5TH 

RMB $1 


0056 

00 


PETTR1 

$00 

Table of pointers 

0057 

26 



$26 

Used for loading 

0058 

00 


PSTR51 

$00 

The index register 

0059 

2F 



$2F 
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005 A 

00 

PSLOSS 

$00 

005B 

36 


$36 

005C 

00 

PSOLSS 

$00 

005D 

37 


$37 

005E 

00 

PSLSS 

$00 

005F 

3E 


$3E 

0060 

00 

PSLASl 

$00 

0061 

3F 


$3F 

0062 

00 

PSLAS2 

$00 

0063 

40 


$40 

0064 

00 

PSLAS3 

$00 

0065 

41 


$41 

0066 

00 

PDVME 

$00 

0067 

42 


$42 

0068 

00 

PDVSE 

$00 

0069 

44 


$44 

006A 

00 

PVASE1 

$00 

006B 

46 


$46 

006C 

00 

P VASE 2 

$00 

006D 

48 


$48 

006E 

00 

PVASE3 

$00 

006F 

4A 


$4A 

0070 

00 

PCQLSS 

$00 

0071 

4C 


$4C 

0072 

00 

PDG1ST 

$00 

0073 

51 


$51 

0074 

00 

PDG5TH 

$00 

0075 

55 


$55 


0080 

8D 

8A 

B1 

AO 

BO 

BO 

BO 

AO 

0088 

B1 

AO 

BO 

BO 

BO 

AO 

B1 

AO 

0090 

BO 

BO 

BO 

AO 

B1 

AO 

BO 

BO 

0098 

BO 

AO 

B1 

AO 

BO 

BO 

BO 

AO 

00A0 

B1 

AO 

BO 

BO 

BO 

AO 

B1 

AO 

00 A8 

BO 

BO 

BO 

AO 

B1 

AO 

BO 

BO 

00B0 

BO 

AO 

B1 

00 






OOCO through OOFF reserved for Galaxy Content Table 


0100 

8D 

8A 

C4 

CF 

AO 

D9 

CF 

D5 

0108 

AO 

D7 

Cl 

CE 

D4 

AO 

D4 

CF 

0110 

AO 

C7 

CF 

AO 

CF 

CE 

AO 

Cl 

0118 

AO 

D3 

DO 

Cl 

C3 

C5 

AO 

D6 

0120 

CF 

D9 

Cl 

C7 

C5 

BF 

AO 

00 

0128 

8D 

8A 

D9 

CF 

D5 

AO 

CD 

D5 

0130 

D3 

D4 

AO 

C4 

C5 

D3 

D4 

D2 

0138 

CF 

D9 

AO 

B2 

B4 

AO 

Cl 

CC 


5-3 



0140 

C9 

C5 

CE 

AO 

D3 

C8 

C9 

DO 

0148 

D3 

AO 

C9 

CE 

AO 

B2 

B9 

AO 

0150 

D3 

D4 

Cl 

D2 

C4 

Cl 

D4 

C5 

0158 

D3 

AO 

D7 

C9 

D4 

C8 

AO 

B5 

0160 

AO 

D3 

DO 

Cl 

C3 

C5 

AO 

D3 

0168 

D4 

Cl 

D4 

C9 

CF 

CE 

D3 

00 

0170 

8D 

8A 

AO 

AD 

B1 

AD 

AD 

B2 

0178 

AD 

AD 

B3 

AD 

AD 

B4 

AD 

AD 

0180 

B5 

AD 

AD 

B6 

AD 

AD 

B7 

AD 

0188 

AD 

B8 

AD 

00 

8D 

8A 

B8 

AO 

0190 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

0198 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

01A0 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

00 

01A8 

AO 

D3 

D4 

Cl 

D2 

C4 

Cl 

D4 

01B0 

C5 

AO 

AO 

B3 

BO 

B2 

B1 

00 

01B8 

AO 

C3 

CF 

CE 

C4 

C9 

D4 

C9 

01C0 

CF 

CE 

AO 

C7 

D2 

C5 

C5 

CE 

01C8 

00 

AO 

D1 

D5 

Cl 

C4 

D2 

Cl 

01D0 

CE 

D4 

AO 

AO 

B5 

AC 

B8 

00 

01D8 

AO 

D3 

C5 

C3 

D4 

CF 

D2 

AO 

01E0 

AO 

AO 

AO 

B6 

AC 

B1 

00 

AO 

01E8 

C5 

CE 

C5 

D2 

C7 

D9 

AO 

AO 

01F0 

AO 

AO 

B5 

BO 

BO 

BO 

00 

AO 

01F8 

D4 

CF 

D2 

DO 

C5 

C4 

CF 

C5 

0200 

D3 

AO 

B1 

BO 

00 

AO 

D3 

C8 

0208 

C9 

C5 

CC 

C4 

D3 

AO 

AO 

AO 

0210 

BO 

BO 

BO 

BO 

00 

8D 

8A 

C3 

0218 

CF 

CD 

CD 

Cl 

CE 

C4 

BF 

00 

0220 

8D 

8A 

C3 

CF 

D5 

D2 

D3 

C5 

0228 

AO 

A8 

B1 

AD 

B8 

AE 

B5 

A9 

0230 

BF 

AO 

00 

8D 

8A 

D7 

Cl 

D2 

0238 

DO 

AO 

C6 

Cl 

C3 

D4 

CF 

D2 

0240 

AO 

A8 

BO 

AE 

B1 

AD 

B7 

AE 

0248 

B7 

A9 

BF 

AO 

00 

8D 

8A 

CC 

0250 

AE 

D2 

AE 

AO 

D3 

C3 

Cl 

CE 

0258 

AO 

C6 

CF 

D2 

00 

8D 

8A 

CD 

0260 

C9 

D3 

D3 

C9 

CF 

CE 

AO 

C6 

0268 

Cl 

C9 

CC 

C5 

C4 

AC 

AO 

D9 

0270 

CF 

D5 

AO 

C8 

Cl 

D6 

C5 

AO 

0278 

D2 

D5 

CE 

AO 

CF 

D5 

D4 

AO 

0280 

CF 

C6 

AO 

D3 

D4 

Cl 

D2 

C4 

0288 

Cl 

D4 

C5 

D3 

00 

8D 

8A 

CB 

0290 

Cl 

AD C2 

CF 

CF 

CD 

AC 

AO 

0298 

D9 

CF 

D5 

AO 

C3 

D2 

Cl 

D3 

02A0 

C8 

C5 

C4 

AO 

C9 

CE 

D4 

CF 

02A8 

AO 

Cl 

AO 

D3 

D4 

Cl 

D2 

AE 

02B0 

AO 

D9 

CF 

D5 

D2 

AO 

D3 

C8 

02B8 

C9 

DO 

AO 

C9 

D3 

AO 

C4 

C5 

02C0 

D3 

D4 

D2 

CF 

D9 

C5 

C4 

00 

02C8 

8D 

8A 

D9 

CF 

D5 

AO 

CD 

CF 

02D0 

D6 

C5 

C4 

AO 

CF 

D5 

D4 

AO 
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02D8 CF C6 AO 

02E0 Cl CC Cl 

02E8 CF D5 D2 

02F0 AO C9 D3 

02F8 AE AE CC 

0300 8A CC CF 

0308 AO C5 CE 

0310 BO B1 B2 

0318 Cl CE C7 

0320 C9 C5 CC 

0328 D2 Cl D9 

0330 8D 8A D3 

0338 AO C5 CE 

0340 D4 D2 Cl 

0348 AO BD AO 

0350 D4 AO C5 

0358 AO C5 CE 

0360 8D 8A D4 

0368 CF AO D4 

0370 D4 CF D2 

0378 AE B5 A9 

0380 8A Cl CC 

0388 C8 C9 DO 

0390 D2 CF D9 

0398 D9 CF D5 

03A0 C5 C4 A1 

03A8 CE AO D3 

03B0 C5 D4 Cl 

03B8 D3 00 8D 

03C0 C5 AO D3 

03C8 CE AO C4 

03D0 D9 C5 C4 

03D8 CE Cl D2 

03E0 D4 C9 CF 

03E8 CF D5 AO 

03F0 C5 CC C9 

03F8 C5 C4 AO 

0400 C6 AO D4 

0408 C9 C5 CE 

0410 D3 00 8D 

0418 CB C9 CE 

0420 B3 00 8D 

0428 D8 D9 AO 

0430 Cl D9 00 

0438 D3 CF D2 

0440 C7 D9 AO 

0448 D2 C5 AO 

0450 Cl CC C9 

0458 C9 DO AO 

0460 C3 D4 CF 

0468 BA AO 00 


D4 C8 C5 AO C7 
D8 D9 AC AO D9 
AO D3 C8 C9 DO 
AO CC CF D3 D4 
CF D3 D4 00 8D 
D3 D3 AO CF C6 
C5 D2 Cl D9 AO 
B9 00 8D 8A C4 
C5 D2 AD D3 C8 
C4 AO C5 CE C5 
AO BO BO BO 00 
C8 C9 C5 CC C4 
C5 D2 Cl D9 AO 
CE D3 C6 C5 D2 
00 8D 8A CE CF 
CE CF D5 Cl C8 
C5 D2 Cl D9 00 
CF D2 DO C5 C4 
D2 Cl CA C5 C3 
D9 A8 B1 AD B8 
AO BA AO 00 8D 
C9 C5 CE AO D3 
AO C4 C5 D3 D4 
C5 C4 00 8D 8A 
AO CD C9 D3 D3 
AO Cl CC C9 C5 
C8 C9 DO AO D2 
CC C9 Cl D4 C5 
8A D3 DO Cl C3 
D4 Cl D4 C9 CF 
C5 D3 D4 D2 CF 
00 8D 8A C3 CF 
Cl D4 D5 CC Cl 
CE D3 AC AO D9 
C8 Cl D6 C5 AO 
CD C9 CE Cl D4 
Cl CC CC AO CF 
C8 C5 AO Cl CC 
AO D3 C8 C9 DO 
8A D4 D2 Cl C3 
Cl BA AO B3 AC 
8A Cl Cl CC Cl 
C4 C9 D3 DO CC 
8D 8A DO C8 Cl 
AO C5 CE C5 D2 
D4 CF AO C6 C9 
BD AO 00 8D 8A 
C5 CE AO D3 C8 
Cl D4 AO D3 C5 
D2 AO B7 AC B8 
C5 CE C5 D2 Cl 
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0470 

D9 

AO 

BD 

AO 

BO 

B5 

B1 

B8 

0478 

00 

8D 

8A 

CE 

CF 

AO 

Cl 

CC 

0480 

C9 

C5 

CE 

AO 

D3 

C8 

C9 

DO 

0488 

D3 

A1 

AO 

D7 

Cl 

D3 

D4 

C5 

0490 

C4 

AO 

D3 

C8 

CF 

D4 

00 

8D 

0498 

8A 

Cl 

C2 

Cl 

CE 

C4 

CF 

CE 

04A0 

AO 

D3 

C8 

C9 

DO 

A1 

AO 

CE 

04A8 

CF 

AO 

C5 

CE 

C5 

D2 

C7 

D9 

04B0 

AO 

cc 

C5 

C6 

D4 

00 

8D 

8A 

04B8 

CE 

CF 

AO 

D4 

CF 

D2 

DO 

C5 

04C0 

C4 

CF 

C5 

D3 

00 

8D 

8A 

B1 

04C8 

AO 

BO 

BO 

BO 

AO 

B1 

AO 

BO 

04D0 

BO 

B4 

AO 

B1 

AO 

BO 

BO 

BO 

04D8 

AO 

B1 

00 

8D 

8A 

CC 

Cl 

D3 

04E0 

D4 

00 

8D 

8A 

C3 

C8 

C9 

C3 

04E8 

CB 

C5 

CE 

A1 

00 





0500 

8E 

OE 

FF 

GALAXY 

LDS #$OEFF 

0503 

7E 

09 

72 


JMP START 

0506 

A6 

00 


MSG 

LDAAX 

0508 

27 

06 



BEQ MSG1 

050A 

BD 

OF 

CO 


JSR PRINT 

050D 

08 




INX 

050E 

20 

F6 



BRA MSG 

0510 

39 



MSG1 

RTS 

0511 

47 



ROTR4 

A SR A 

0512 

47 



ROTR3 

ASRA 

0513 

47 




ASRA 

0514 

47 




ASRA 

0515 

39 




RTS 

0516 

96 

33 


RN 

LDAA RNM 

0518 

49 




ROLA 

0519 

98 

33 



EORA RNM 

051B 

46 




RORA 

051C 

7C 

00 

34 


INC RNM+$1 

05 IF 

9B 

34 



ADDA RNM+$1 

0521 

28 

03 



BVC SKIP 

0523 

7 A 

00 

34 


DEC RNM+$1 

0526 

97 

33 


SKIP 

STAA RNM 

0528 

39 




RTS 

0529 

DF 

20 


BINDEC 

STX PNTR1 

052B 

DE 

72 



LDX PDG1ST 

052D 

6F 

00 



CLR X 

052F 

6F 

01 



CLR $01,X 

0531 

6F 

02 



CLR $02,X 
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0533 

6F 

03 


0535 

6F 

04 


0537 

DE 

20 


0539 

A6 

00 


053B 

5A 



053C 

27 

02 


053E 

E6 

01 


0540 

97 

26 


0542 

D7 

27 


0544 

CE 

10 

27 

0547 

DF 

28 


0549 

8D 

21 


054B 

D7 

55 


054D 

CE 

E8 

03 

0550 

DF 

28 


0552 

8D 

18 


0554 

D7 

54 


0556 

CE 

64 

00 

0559 

DF 

28 


055B 

8D 

OF 


055D 

D7 

53 


055F 

86 

0A 


0561 

97 

28 


0563 

8D 

07 


0565 

D7 

52 


0567 

96 

26 


0569 

97 

51 


056B 

39 



056C 

5F 



056D 

5C 



05 6E 

96 

26 


0570 

90 

28 


0572 

97 

26 


0574 

96 

27 


0576 

92 

29 


0578 

97 

27 


057A 

24 

FI 


057C 

96 

26 


057E 

9B 

28 


0580 

97 

26 


0582 

96 

27 


0584 

99 

29 


0586 

97 

27 


0588 

5A 



0589 

39 



058A 

7F 

00 

29 

058D 

96 

51 


058F 

97 

28 



CLR $03,X 
CLR $04,X 
LDXPNTR1 
LDAAX 
DECB 
BEQ BNDC 
LDAB $01,X 

BNDC ST A A STORE 1 

STAB STOREl+$l 
LDX #$1027 
STX STORE 2 
BSR BD 
STAB DGT5TH 
LDX #$E803 
STX STORE 2 
BSR BD 
STAB DGT4TH 
LDX #$6400 
STX STORE 2 
BSR BD 
STAB DGT3RD 
LDAA #$0A 
STAA STORE 2 
BSR BD 
STAB DGT2ND 
LDAA STORE1 
STAA DGT1ST 
RTS 

BD CLRB 
BD1 INCB 

LDAA STORE1 
SUBA STORE2 
STAA STORE1 
LDAA STOREl+$l 
SBC A STORE2+$l 
STAA STOREl+$l 
BCC BD1 
LDAA STORE1 
ADDA STORE2 
STAA STORE1 
LDAA STOREl+$l 
ADC A STORE2+$l 
STAA STOREl+$l 
DECB 
RTS 

DCBN CLR STORE2+$l 
LDAA DGT1ST 
STAA STORE2 
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0591 

D6 

52 



LDAB DGT2ND 

0593 

27 

07 



BEQ DC1 

0595 

CE 

OA 

00 


LDX #$0A00 

0598 

DF 

26 



STX STORE 1 

059A 

8D 

17 



BSR TOBN 

059C 

D6 

53 


DC1 

LDAB DGT3RD 

059E 

27 

07 



BEQ DC2 

05 AO 

CE 

64 

00 


LDX #$6400 

05A3 

DF 

26 



STX STORE 1 

05A5 

8D 

OC 



BSR TOBN 

05A7 

D6 

54 


DC2 

LDAB DGT4TH 

05A9 

27 

07 



BEQ DC3 

05 AB 

CE 

E8 

03 


LDX #$E803 

05 AE 

DF 

26 



STX STORE1 

05B0 

8D 

01 



BSR TOBN 

05B2 

39 



DC3 

RTS 

05B3 

CE 

00 

28 

TOBN 

LDX # STORE2 

05 B6 

BD 

08 

02 


JSR TOl 

05B9 

5A 




DECB 

05 BA 

26 

F7 



BNE TOBN 

05BC 

39 




RTS 

05BD 

A6 

00 


FNUM 

LDAAX 

05BF 

81 

BO 



CMP A #$B0 

05C1 

2B 

04 



BMIFNUMl 

05C3 

80 

BA 



SUBA #$BA 

05C5 

8B 

80 



ADDA #$80 

05C7 

39 



FNUMl 

RTS 

05C8 

DE 

5C 


NWQD 

LDX PSOLSS 

05 CA 

86 

CO 



LDAA #$C0 

05 CC 

C6 

OB 



LDAB #$0B 

05 CE 

A7 

00 


CLR1 

STAAX 

05D0 

08 




INX 

05D1 

5A 




DECB 

05D2 

26 

FA 



BNE CLR1 

05D4 

D6 

35 



LDAB CQC 

05 D6 

C4 

07 



ANDB #$07 

05D8 

27 

04 



BEQ NWQD1 

05DA 

DE 

5C 



LDX PSOLSS 

05DC 

8D 

31 



BSR LOCSET 

05 DE 

96 

35 


NWQD1 

LDAA CQC 

05E0 

BD 

05 

12 


JSR ROTR3 

05E3 

16 




TAB 

05E4 

C4 

01 



ANDB #$01 

05E6 

27 

04 



BEQ NWDQ2 

05E8 

DE 

5E 



LDX PSLSS 

05EA 

8D 

23 



BSR LOCSET 
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05EC 

96 

35 


NWDQ2 

LDAA CQC 

05EE 

BD 

05 

11 


JSR ROTR4 

05F1 

16 




TAB 

05F2 

C4 

03 



ANDB #$03 

05F4 

27 

16 



BEQ LLAS 

05F6 

DE 

60 



LDX PSLASl 

05F8 

8D 

15 



BSR LOCSET 

05 FA 

8D 

10 


LDAS 

BSR LLAS 

05 FC 

DE 

6A 



LDX PVASE1 

05FE 

8D 

06 



BSR LAS 

0600 

DE 

6C 



LDX PVASE2 

0602 

8D 

02 



BSR LAS 

0604 

DE 

6E 



LDX PVASE3 

0606 

A7 

00 


LAS 

STAAX 

0608 

84 

03 



AND A #$03 

060A 

A7 

01 



ST A A $01,X 

060C 

7E 

05 

16 

LLAS 

JMP RN 

060F 

DF 

20 


LOCSET 

STX PNTR1 

0611 

8D 

F9 



BSR LLAS 

0613 

84 

3F 



ANDA #$3F 

0615 

8D 

OB 



BSR MATCH 

0617 

27 

F8 



BEQ LOCSET+$2 

0619 

DE 

20 



LDX PNTR1 

061B 

A7 

00 



STAAX 

061D 

08 




INX 

06 IE 

5A 




DECB 

06 IF 

26 

EE 



BNE LOCSET 

0621 

39 




RTS 

0622 

DE 

5C 


MATCH 

LDX PSOLSS 

0624 

A1 

00 


MATCH2 

CMPAX 

0626 

27 

06 



BEQ MATCH1 

0628 

08 




INX 

0629 

9C 

66 



CPX PDVME 

062B 

7E 

OE 

82 


JMP PATCH 

062E 

39 



MATCH 1 

RTS 

062F 

96 

4C 


QCNT 

LDAA CQLSS 

0631 

8A 

CO 



ORAA #$C0 

0633 

BD 

09 

51 


JSR ATINX1 

0636 

A6 

00 



LDAA X 

0638 

97 

35 



ST A A CQC 

063A 

39 




RTS 

063B 

CE 

88 

13 

LOAD 

LDX #$8813 

063E 

DF 

42 



STX DVME 

0640 

CE 

00 

00 


LDX #$0000 
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0643 

DF 

44 



STX DVSE 

0646 

86 

0A 



LDAA #$0A 

0647 

97 

4D 



STAA NTR 

0649 

39 




RTS 

064A 

CE 

02 

5D 

TIME 

LDX #$025D 

064D 

BD 

05 

06 

DONE 

JSR MSG 

0650 

7E 

09 

72 


JMPGALAXY 

0653 

CE 

02 

C8 

LOST 

LDX #$02C8 

0656 

20 

F5 



BRA DONE 

0658 

CE 

02 

8D 

WPOUT 

LDX #$028D 

065B 

20 

FO 



BRA DONE 

065D 

CE 

04 

97 

EOUT 

LDX #$0497 

0660 

20 

EB 



BRA DONE 

0662 

DF 

20 


DIGPRT 

STX PNTR1 

0664 

9F 

22 



STS PNTR2 

0666 

9E 

20 



LDSPNTR1 

0668 

DE 

72 



LDX PDG1ST 

066A 

A6 

00 


DGPRT1 

LDAA X 

066C 

08 




INX 

066D 

8A 

BO 



ORA A #$B0 

066F 

36 




PSHA 

0670 

5A 




DECB 

0671 

26 

F7 



BNE DGPRT1 

0673 

9E 

22 



LDS PNTR2 

0675 

39 




RTS 

0676 

CE 

01 

8F 

ROWSET 

LDX #-$018F 

0679 

86 

AO 



LDAA #$A0 

067B 

A7 

00 


RCLR 

STAA X 

067D 

08 




INX 

067E 

8C 

01 

A7 


CPX #$01A7 

0681 

26 

F8 



BNE RCLR 

0683 

17 




TBA 

0684 

8A 

BO 



ORAA #$B0 

0686 

B7 

01 

8E 


STAA $018E 

0689 

5A 




DECB 

068A 

DE 

5A 



LDX PSLOSS 

068C 

8D 

52 



BSR RWPNT 

068E 

26 

OC 



BNE STR 

0690 

86 

BC 



LDAA #$BC 

0692 

A7 

00 



STAA X 

0694 

86 

AA 



LDAA #$AA 

0696 

A7 

01 



STAA $01,X 

0698 

86 

BE 



LDAA #$BE 
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069A 

A7 

02 


069C 

DE 

5C 


069E 

DF 

22 


06A0 

8D 

3E 


06A2 

26 

04 


06A4 

86 

AA 


06A6 

A7 

01 


06A8 

7C 

00 

23 

06 AB 

DE 

22 


06AD 

9C 

5E 


06 AF 

26 

EF 


06B1 

8D 

2D 


06B3 

26 

OC 


06B5 

86 

BE 


06B7 

A7 

00 


06 B9 

86 

B1 


06BB 

A7 

01 


06BD 

86 

BC 


06BF 

A7 

02 


06C1 

DE 

60 


06C3 

DF 

22 


06C5 

8D 

19 


06C7 

26 

08 


06 C9 

86 

AB 


06CB 

A7 

00 


06CD 

A7 

01 


06 CF 

A7 

02 


06D1 

7C 

00 

23 

06D4 

DE 

22 


06D6 

9C 

66 


06 D8 

26 

EB 


06DA 

CE 

01 

8C 

06DD 

7E 

05 

06 

06E0 

A6 

00 


06E2 

2B 

ID 


06E4 

BD 

05 

12 

06E7 

84 

07 


06E9 

11 



06EA 

26 

15 


06EC 

A6 

00 


06EE 

84 

07 


06F0 

97 

26 


06F2 

48 



06F3 

9B 

26 


06F5 

8B 

8F 


06F7 

7F 

00 

20 

06FA 

7C 

00 

20 

06 FD 

BD 

09 

54 


STAA $02,X 

OTR LDX PSOLSS 
STX PNTR2 
STR1 BSR RWPNT 
BNE NXSTR 
LDAA #$AA 
STAA $01,X 

NXSTR INC PNTR2+$1 
LDX PNTR2 
CPX PSLSS 
BNE STR1 

BSR RWPNT 
BNE AS 
LDAA #$BE 
STAA X 
LDAA #$B1 
STAA $01,X 
LDAA #$BC 
STAA $02,X 
AS LDX PSLAS1 
STX PNTR2 
AS1 BSR RWPNT 
BNE NX AS 
LDAA #$AB 
STAA X 
STAA $01,X 
STAA $02,X 
NXAS INC PNTR2+$1 
LDX PNTR2 
CPX PDVME 
BNE AS1 
LDX #$018C 
JMP MSG 

RWPNT LDAA X 

BMI RWPNT 1 
JSR ROTR3 
AND A #$07 
CBA 

BNE RWPNT1 
LDAA X 
AND A #$07 
STAA STORE1 
ASLA 

ADDA STORE1 
ADDA #$8F 
CLR PNTR1 
INC PNTR1 
JSR ATINX 
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0700 

4F 



0701 

39 



0702 

CE 

01 

D4 

0705 

DF 

20 


0707 

CE 

00 

4C 

070A 

8D 

06 


070C 

CE 

01 

C9 

070F 

7E 

05 

06 

0712 

A6 

00 


0714 

16 



0715 

DE 

20 


0717 

BD 

05 

12 

071A 

84 

07 


071C 

8B 

B1 


07 IE 

A7 

00 


0720 

C4 

07 


0722 

CB 

B1 


0724 

E7 

02 


0726 

39 



0727 

C6 

13 


0729 

86 

8D 


072B 

8D 

OC 


072D 

86 

8A 


07 2F 

8D 

08 


0731 

86 

AD 


0733 

8D 

04 


0735 

5A 



0736 

26 

F9 


0738 

39 



0739 

7E 

OF 

CO 

073C 

16 



073D 

BD 

05 

11 

0740 

84 

03 


0742 

8A 

BO 


0744 

A7 

00 


0746 

17 



0747 

BD 

05 

12 

07 4A 

84 

01 


07 4C 

8A 

BO 


07 4E 

A7 

01 


0750 

C4 

07 


0752 

CA 

BO 


0754 

E7 

02 


0756 

39 



0757 

4F 



0758 

20 

14 



CLRA 

RWPNT1 RTS 

QUAD LDX #$01D4 
STX PNTR1 
LDX #CQLSS 
BSR TWO 
LDX #$01C9 
JMP MSG 

TWO LDAA X 
TAB 

LDX PNTR1 
T1 JSR ROTR3 
AND A #$07 
ADDA #$B1 
ST A A X 
ANDB #$07 
ADDB #$B1 
STAB $02,X 
RTS 

NTN LDAB #$13 

NT1 LDAA #$8D 
BSR NT3 
LDAA #$8A 
BSR NT3 

NT2 LDAA #$AD 
BSR NT3 
DECB 
BNE NT2 
RTS 

NT3 JMP PRINT 

QDSET TAB 

JSR ROTR4 
ANDA #$03 
ORA A #$B0 
STAAX 
TBA 

JSR ROTR3 
ANDA #$01 
ORAA #$B0 
STAA $01,X 
ANDB #$07 
ORAB #$B0 
STAB $02,X 
RTS 

CLCl CLRA 

BRA LR3 
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075A 

4F 



075B 

20 

2F 


07 5D 

7E 

09 

51 

0760 

8A 

CO 


0762 

16 



0763 

97 

26 


0765 

C4 

07 


0767 

27 

EE 


0769 

4A 



076A 

8D 

FI 


076C 

A6 

00 


076E 

CE 

04 

C9 

0771 

8D 

C9 


0773 

96 

26 


0775 

8D 

E6 


0777 

A6 

00 


0779 

CE 

04 

CF 

077C 

8D 

BE 


077E 

96 

26 


0780 

16 



0781 

C4 

07 


0783 

Cl 

07 


0785 

27 

D3 


0787 

4C 



0788 

8D 

D3 


078A 

A6 

00 


078C 

CE 

04 

D5 

078F 

BD 

07 

3C 

0792 

CE 

04 

C5 

0795 

7E 

05 

06 

0798 

DF 

2A 


079A 

CE 

00 

2A 

079D 

C6 

02 


079F 

BD 

05 

29 

07 A2 

CE 

03 

13 

07A5 

C6 

04 


07A7 

BD 

06 

62 

07AA 

CE 

02 

FF 

07 AD 

8D 

E6 


07AF 

DE 

2A 


07B1 

DF 

26 


07B3 

8D 

23 


07B5 

24 

32 


07B7 

DE 

44 


07B9 

DF 

26 


07BB 

8D 

2C 



CLC2 CLRA 

BRA LR4 

LR5 JMP ATINX1 

LRR ORAA # $C0 
TAB 

STAA STOREl 
ANDB #$07 
BEQ CLC1 
DECA 
BSR LR5 
LDAAX 

LR3 LDX #$04C9 
BSR QDSET 
LDAA STOREl 
BSR LR5 
LDAAX 
LDX #$04CF 
BSR QDSET 
LDAA STOREl 
TAB 

ANDB #$07 
CMPB #$07 
BEQ CLC2 
INCA 
BSR LR5 
LDAAX 

LR4 LDX #$04D5 
JSR QDSET 

LRP LDX #$04C5 

LR6 JMP MSG 

ELOS STX STORE3 

LDX #STORE3 
LDAB #$02 
JSR BINDEC 
LDX #$0313 
LDAB #$04 
JSR DIGPRT 
LDX #$02FF 
BSR LR6 
LDX STORE3 
STX STOREl 

ELSl BSR CKSD 
BCC FMSD 

SDOl LDXDVSE 
STX STOREl 
BSR FMSD 
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07 BD 

8D 

41 


BSR TOMN 

07BF 

DE 

2A 


LDX STORE3 

07 Cl 

DF 

26 


STX STOREl 

07C3 

8D 

17 

SDO 

BSR CKMN 

07C5 

25 

53 


BCSEOUT1 

07C7 

8D 

24 


BSR FMMN 

07 C9 

CE 

03 15 


LDX #$0315 

07CC 

8D 

C7 


BSR LR6 

07 CE 

C6 

02 


LDAB #$02 

07D0 

8D 

3D 


BSR DVD 

07D2 

8D 

08 


BSR CKMN 

07D4 

25 

44 


BCSEOUT1 

07D6 

20 

15 


BRA FMMN 

07D8 

DE 

68 

CKSD 

LDXPDVSE 

07DA 

20 

02 


BRA CK1 

07DC 

DE 

66 

CKMN 

LDX PDVME 

07DE 

A6 

01 

CK1 

LDAA $01,X 

07E0 

91 

27 


CMPA STOREl+$l 

07E2 

26 

35 


BNEELOSl 

07E4 

A6 

00 

CK2 

LDAA X 

07E6 

91 

26 


CMPA STOREl 

07E8 

39 



RTS 

07E9 

DE 

68 

FMSD 

LDX PDVSE 

07EB 

20 

02 


BRA FM1 

07ED 

DE 

66 

FMMN 

LDX PDVME 

07EF 

A6 

00 

FM1 

LDAA X 

07F1 

90 

26 


SUBA STOREl 

07F3 

A7 

00 


STAA X 

07F5 

A6 

01 


LDAA $01,X 

07F7 

92 

27 


SBCA STOREl+$l 

07F9 

A7 

01 


STAA $01,X 

07FB 

39 



RTS 

07FC 

DE 

68 

TOSD 

LDX PDVSE 

07FE 

20 

02 


BRA TOl 

0800 

DE 

66 

TOMN 

LDX PDVME 

0802 

A6 

00 

TOl 

LDAA X 

0804 

9B 

26 


ADDA STOREl 

0806 

A7 

00 


STAA X 

0808 

A6 

01 


LDAA $01,X 

080A 

99 

27 


ADC A STOREl+$l 

080C 

A7 

01 


STAA $01,X 

080E 

39 



RTS 
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080F 

5D 



0810 

76 

00 

27 

0813 

76 

00 

26 

0816 

5A 



0817 

26 

F6 


0819 

39 



081A 

7E 

06 

5D 

081D 

8D 

BD 


081F 

24 

CC 


0821 

DE 

26 


0823 

DF 

2A 


0825 

7E 

07 

B7 

0828 

DE 

74 


082A 

6F 

00 


08 2C 

BD 

OF 

80 

082F 

81 

AD 


0831 

26 

05 


0833 

A7 

00 


0835 

BD 

OF 

80 

0838 

09 



0839 

A7 

00 


083B 

BD 

05 

BD 

083E 

2B 

0A 


0840 

A6 

00 


0842 

84 

OF 


0844 

A7 

00 


0846 

9C 

72 


0848 

26 

EB 


084A 

39 



084B 

86 

CO 


08 4D 

A7 

00 


084F 

DF 

22 


0851 

96 

4C 


0853 

8B 

CO 


0855 

BD 

09 

51 

0858 

DF 

24 


08 5A 

DE 

22 


085C 

BD 

09 

59 

085F 

26 

15 


0861 

DE 

24 


0863 

A6 

00 


0865 

84 

37 


0867 

A7 

00 


0869 

97 

35 


086B 

7A 

00 

4E 

086E 

26 

IB 


0870 

CE 

04 

DB 

0873 

7E 

05 

06 


DVD TSTB 

ROR STOREl+$l 
ROR STORE1 
DECB 
BNE DVD 
ELOS1 RTS 
EOUT1 JMP EOUT 

ELOM BSR CKMN 
BCC FMMN 
LDX STORE1 
STX STORE 3 
JMP SDOl 

EIN LDX PDG5TH 
CLR X 
JSR INPUT 
CMP A # $AD 
BNE EN2 
STAAX 

ENl JSR INPUT 
EN2 DEX 

STAA X 
JSR FNUM 
BMIEIN1 
LDAAX 
AND A #$0F 
STAA X 
CPXPDG1ST 
BNE ENl 
EIN1 RTS 

DLET LDAA #$C0 
STAAX 
STX PNTR2 
LDAA CQLSS 
ADDA #$C0 
JSR ATINX1 
STX PNTR3 
LDX PNTR2 
JSR COMPAR 
BNE DLAS 
LDX PNTR3 
LDAAX 
AND A #$37 
STAA X 
STAA CQC 
DEC NSS 
BNE DLET1 
LDX #$04DB 
JMP MSG 
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0876 

DE 

24 


0878 

A6 

00 


087A 

80 

10 


087C 

A7 

00 


087E 

97 

35 


0880 

7A 

00 

4F 

0883 

26 

06 


0885 

CE 

03 

D4 

0888 

7E 

06 

4D 

088B 

39 



088C 

BD 

OF 

80 

088F 

81 

B1 


0891 

25 

25 


0893 

81 

B9 


0895 

24 

21 


0897 

84 

OF 


0899 

48 



089A 

16 



089B 

86 

AE 


089D 

BD 

OF 

CO 

08A0 

BD 

OF 

80 

08A3 

81 

B0 


08A5 

27 

04 


08A7 

81 

B5 


08A9 

26 

OD 


08 AB 

84 

01 


08 AD 

IB 



08AE 

48 



08 AF 

80 

04 


08B1 

97 

21 


08B3 

4F 



08 B4 

97 

20 


08B6 

4C 



08B7 

39 



08B8 

4F 



08B9 

39 



08BA 

9F 

22 


08BC 

9E 

58 


08BE 

96 

36 


08C0 

16 



08C1 

C4 

07 


08C3 

58 



08 C4 

37 



08C5 

84 

38 


08 C7 

44 



08C8 

44 



08C9 

36 




DLAS LDXPNTR3 
LDAAX 
SUBA *$10 
STAA X 
STAA CQC 
DEC NAS 
BNE DLET1 
LDX #$03D4 
JMPDONE 
DLET1 RTS 

DRCT JSR INPUT 
CMP A *$B1 
BCSZRET 
CMP A #$B9 
BCC ZRET 
ANDA #$0F 
ASLA 
TAB 

LDAA #$AE 
JSR PRINT 
JSR INPUT 
CMP A *$B0 
BEQ CRl 
CMP A *$B5 
BNE ZRET 

CRl ANDA *$01 
ABA 
ASLA 

SUBA #$04 
STAA PNTR1+$1 
CLRA 

STAA PNTR1 

INCA 

RTS 

ZRET CLRA 
RTS 

ACTV STS PNTR2 
LDSPSTR51 
LDAA SLOSS 
TAB 

ANDB #$07 

ASLB 

PSHB 

ANDA #$38 
LSRA 
LSRA 
PSHA 
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08CA 

DE 

20 


08CC 

A6 

00 


08 CE 

36 



08CF 

A6 

01 


08D1 

36 



08D2 

9E 

22 


08D4 

39 



08D5 

7F 

00 

32 

08D8 

96 

2F 


08 DA 

9B 

2D 


08 DC 

97 

2F 


08 DE 

2A 

12 


08E0 

84 

OF 


08E2 

97 

2F 


08E4 

7C 

00 

32 

08E7 

96 

4C 


08E9 

84 

07 


08EB 

27 

56 


08ED 

7A 

00 

4C 

08F0 

20 

17 


08F2 

81 

10 


08F 4 

25 

13 


08F6 

84 

OF 


08F8 

97 

2F 


08FA 

7C 

00 

32 

08FD 

96 

4C 


08 FF 

84 

07 


0901 

4C 



0902 

81 

08 


0904 

27 

3D 


0906 

7C 

00 

4C 

0909 

96 

2E 


090B 

9B 

2C 


090D 

97 

2E 


090F 

2A 

14 


0911 

84 

OF 


0913 

97 

2E 


0915 

7C 

00 

32 

0918 

96 

4C 


091A 

16 



091B 

84 

38 


091D 

27 

24 


091F 

CO 

08 


0921 

D7 

4C 


0923 

20 

1A 



LDX PNTR1 

LDAAX 

PSHA 

LDAA $01,X 
PSHA 

LDSPNTR2 
RTS 

TRK CLR CF 

LDAA STORE5+$l 
ADDA STORE4+$l 
STAA STORE5+$l 
BPL NOBK 
AND A #$0F 
STAA STORE5+$l 
INC CF 

LDAA CQLSS 
AND A #$07 
BEQ TRK1 
DEC CQLSS 
BRA RMV 

NOBK CMP A #$10 
BCS RMV 
AND A #$0F 
STAA STORE5+$l 
INC CF 

LDAA CQLSS 
ANDA #$07 
INCA 

CMP A #$08 
BEQ TRK1 
INC CQLSS 

RMV LDAA STORE5 
ADDA STORE4 
STAA STORE5 
BPL NOUP 
ANDA #$0F 
STAA STORE5 
INC CF 
LDAA CQLSS 
TAB 

ANDA #$38 
BEQTRK1 
SUBB #$08 
STAB CQLSS 
BRA CKX 


5-17 



0925 

81 

10 


NOUP 

CMP A #$10 

0927 

25 

16 



BCSCKX 

0929 

84 

OF 



AND A #$0F 

092B 

97 

2E 



STAA STORE5 

09 2D 

7C 

00 

32 


INC CF 

0930 

96 

4C 



LDAA CQLSS 

0932 

16 




TAB 

0933 

84 

38 



ANDA #$38 

0935 

8B 

08 



ADDA #$08 

0937 

81 

40 



CMP A #$40 

0939 

27 

08 



BEQTRK1 

093B 

CB 

08 



ADDB #$08 

093D 

D7 

4C 



STAB CQLSS 

093 F 

26 

02 


CKX 

BNE TRK1 

0941 

86 

01 



LDAA #$01 

0943 

39 



TRK1 

RTS 

0944 

96 

2F 


RWCM 

LDAA STORE5+$l 

0946 

44 




LSRA 

0947 

84 

07 



ANDA #$07 

0949 

D6 

2E 



LDABSTORE5 

094B 

58 




ASLB 

094C 

58 




ASLB 

094D 

C4 

38 



ANDB #$38 

094F 

IB 




ABA 

0950 

39 




RTS 

0951 

7F 

00 

20 

ATINX1 

CLR PNTR1 

0954 

97 

21 


ATINX 

STAA PNTR1+$1 

0956 

DE 

20 



LDXPNTR1 

0958 

39 




RTS 

0959 

DF 

20 


COMPAR 

STX PNTR1 

095B 

96 

21 



LDAA PNTR1+$1 

095D 

81 

3E 



CMP A #$3E 

095 F 

39 




RTS 

0960 

96 

35 


WASTE 

LDAA CQC 

0962 

84 

30 



ANDA =#=$30 

0964 

27 

01 



BEQWASTE1 

0966 

39 




RTS 

0967 

33 



WASTE1 

PULB 

0968 

33 




PULB 

0969 

CE 

04 

79 


LDX #$0479 

096C 

BD 

05 

06 


JSR MSG 

096F 

7E 

OB 

39 


JMPCMND 

0972 

CE 

01 

00 

START 

LDX #$0100 

0975 

BD 

05 

06 


JSR MSG 

0978 

BD 

05 

16 


JSR RN 


5-18 



097B 

BD 

OF 

80 

097E 

97 

34 


0980 

81 

CE 


0982 

26 

09 


0984 

CE 

04 

E2 

0987 

BD 

05 

06 

098A 

01 



098B 

01 



098C 

01 



098D 

C6 

CO 


098F 

D7 

26 


0991 

BD 

05 

16 

0994 

84 

7F 


0996 

C6 

OF 


0998 

D7 

20 


099A 

BD 

09 

54 

099D 

E6 

00 


099F 

96 

26 


09A1 

BD 

09 

51 

09A4 

E7 

00 


09A6 

7C 

00 

26 

09A9 

26 

E6 


09AB 

7F 

00 

4E 

09 AE 

7F 

00 

4F 

09B1 

CE 

00 

CO 

09B4 

A6 

00 


09B6 

16 



09B7 

84 

08 


09B9 

9B 

4E 


09BB 

97 

4E 


09BD 

C4 

30 


09BF 

54 



09C0 

54 



09C1 

DB 

4F 


09C3 

D7 

4F 


09C5 

08 



09C6 

8C 

01 

00 

09C9 

26 

E9 


09CB 

96 

4E 


09CD 

44 



09CE 

44 



09CF 

44 



09D0 

97 

4E 


09D2 

81 

07 


09D4 

2A 

0A 



JSR INPUT 
STAA RNM+$1 
CMP A #$CE 
BNE OVER 

LDX #$04E2 

JSR MSG 

NOP 

NOP 

NOP 

OVER LDAB #$C0 
STAB STORE1 

GLXSET JSR RN 

ANDA #$7F 
LDAB #$0F 
STAB PNTR1 
JSR ATINX 
LDAB X 
LDAA STORE1 
JSR ATINX1 
STAB X 
INC STORE 1 
BNE GLXSET 

GLXCK CLR NSS 
CLR NAS 
LDX #$00C0 

GLXCK 1 LDAA X 
TAB 

ANDA #$08 
ADDA NSS 
STAA NSS 
ANDB #$30 
LSRB 
LSRB 

ADDB NAS 
STAB NAS 
INX 

CPX #$0100 
BNE GLXCK 1 

LDAA NSS 
LSRA 
LSRA 
LSRA 
STAA NSS 
CMP A #$07 
BPL SSPLS 
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09D6 

81 02 


09D8 

2A 33 


09DA 

C6 08 


09DC 

D7 26 


09DE 

20 IF 


09E0 

C6 F7 


09E2 

D7 26 


09E4 

20 04 


09E6 

C6 CF 


09E8 

D7 26 


09EA 

BD 05 

16 

09ED 

8A CO 


09EF 

BD 09 

51 

09F2 

96 26 


09F4 

A4 00 


09F6 

A7 00 


09F8 

7E 09 

AB 

09FB 

C6 10 


09FD 

D7 26 


09FF 

BD 05 

16 

0A02 

8A CO 


0A04 

BD 09 

51 

0A07 

96 26 


0A09 

AA 00 


0A0B 

20 E9 


0A0D 

96 4F 


0A0F 

44 


0A10 

44 


0A11 

97 4F 


0A13 

81 20 


0A15 

2A CF 


0A17 

81 OA 


0A19 

2B EO 


0A1B 

86 05 


0A1D 

9B 4F 


0A1F 

97 50 


0A21 

CE 00 

50 

0A24 

C6 01 


0A26 

BD 05 

29 

0A29 

CE 01 

4E 

0A2C 

C6 02 


0A2E 

BD 06 

62 

0A31 

CE 00 

4F 

0A34 

C6 01 



CMP A #$02 
BPL CAS 

SSMNS LDAB #$08 
STAB STORE1 
BRA MNS 

SSPLS LDAB #$F7 
STAB STORE 1 
BRA PLS 

ASPLS LDAB #$CF 
STAB STORE1 

PLS JSR RN 

ORAA #$C0 
JSR ATINX1 
LDAA STORE1 
ANDAX 

PLS1 ST A A X 

JMP GLXCK 

ASMNS LDAB #$10 
STAB STORE1 

MNS JSR RN 

ORAA #$C0 
JSR ATINX1 
LDAA STORE1 
ORAA X 
BRA PLS1 

CAS LDAA NAS 
LSRA 
LSRA 
ST A A NAS 
CMP A #$20 
BPL ASPLS 
CMP A #$0A 
BMI ASMNS 
LDAA #$05 
ADDA NAS 
STAA NSR 
LDX #NSR 
LDAB #$01 
JSR BINDEC 
LDX #$014E 
LDAB #$02 
JSR DIGPRT 
LDX #NAS 
LDAB #$01 
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0A36 

BD 

05 

29 

0A39 

CE 

01 

3C 

0A3C 

C6 

02 


0A3E 

BD 

06 

62 

0A41 

96 

4E 


0A43 

8A 

B0 


0A45 

B7 

01 

5F 

0A48 

CE 

01 

28 

0A4B 

BD 

05 

06 

0A4E 

BD 

05 

16 

0A51 

84 

3F 


0A53 

97 

4C 


0A55 

BD 

06 

2F 

0A58 

BD 

06 

3B 

0A5B 

BD 

05 

C8 

0A5E 

DE 

5A 


0A60 

C6 

01 


0A62 

BD 

06 

OF 

0A65 

CE 

01 

70 

0A68 

BD 

05 

06 

0A6B 

C6 

01 


0A6D 

BD 

06 

76 

0A70 

86 

32 


0A72 

90 

50 


0A74 

97 

26 


0A76 

DE 

56 


0A78 

C6 

01 


0A7A 

BD 

05 

29 

0A7D 

CE 

01 

B6 

0A80 

C6 

02 


0A82 

BD 

06 

62 

0A85 

CE 

01 

A8 

0A88 

8D 

24 


0A8A 

C6 

02 


0A8C 

BD 

06 

76 

0A8F 

96 

35 


0A91 

CE 

01 

C3 

0A94 

84 

30 


0A96 

26 

19 


0A98 

86 

C7 


0A9A 

A7 

00 


0A9C 

86 

D2 


0A9E 

A7 

01 


0AA0 

86 

C5 


0AA2 

A7 

02 


0AA4 

86 

C5 


0AA6 

A7 

03 


0AA8 

86 

CE 


0AAA 

A7 

04 



JSR BINDEC 
LDX #$013C 
LDAB #$02 
JSR DIGPRT 
LDAA NSS 
ORAA #$B0 
STAA $015F 
LDX #$0128 
JSR MSG 
JSR RN 
AND A #$3F 
STAA CQLSS 
JSR QCNT 
JSR LOAD 
JSR NWQD 
LDX PSLOSS 
LDAB #$01 
JSR LOCSET 

SRSCN LDX #$0170 
JSR MSG 
LDAB #$01 
JSR ROWSET 
LDAA #$32 
SUBA NSR 
STAA STORE1 
LDX PSTR1 
LDAB #$01 
JSR BINDEC 
LDX #$01B6 
LDAB #$02 
JSR DIGPRT 
LDX #$01A8 
BSR SRSCN1 

LDAB #$02 
JSR ROWSET 
LDAA CQC 
LDX #$01C3 
ANDA #$30 
BNE RED 
LDAA #$C7 
STAA X 
LDAA #$D2 
STAA $01,X 
LDAA #$C5 
STAA $02,X 
LDAA #$C5 
STAA $03,X 
LDAA #$CE 
STAA $04,X 
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0AAC 

20 11 


0AAE 

7E 05 06 

SRSCN1 

0AB1 

86 D2 

RED 

0AB3 

A7 00 


0AB5 

86 C5 


0AB7 

A 7 01 


0AB9 

86 C4 


OABB 

A7 02 


OABD 

6F 03 


OABF 

CE 01 B8 

CND 

OAC2 

8D EA 


0AC4 

C6 03 


0AC6 

BD 06 76 


0AC9 

BD 07 02 


OACC 

C6 04 


OACE 

BD 06 76 


0AD1 

CE 01 E3 


0AD4 

DF 20 


0AD6 

DE 5A 


0AD8 

BD 07 12 


OADB 

CE 01 D8 


OADE 

8D CE 


OAEO 

C6 05 


0AE2 

BD 06 76 


0AE5 

DE 66 


0AE7 

C6 02 


0AE9 

BD 05 29 


OAEC 

CE 01 F5 


OAEF 

C6 04 


0AF1 

BD 06 62 


0AF4 

CE 01 E7 


0AF7 

8D B5 


OAF 9 

C6 06 


OAFB 

BD 06 76 


OAFE 

CE 00 4D 


0B01 

C6 01 


0B03 

BD 05 29 


0B06 

CE 02 03 


0B09 

C6 02 


OBOB 

BD 06 62 


OBOE 

CE 01 F7 


0B11 

BD OA AE 


0B14 

C6 07 


0B16 

BD 06 76 


0B19 

DE 68 



BRA CND 
JMPMSG 

LDAA #$D2 
STAA X 
LDAA #$C5 
STAA $01,X 
LDAA #$C4 
STAA $02,X 
CLR $03,X 

LDX #$01B8 
BSR SRSCN1 

LDAB #$03 
JSR ROWSET 
JSR QUAD 

LDAB #$04 
JSR ROWSET 
LDX #$01E3 
STX PNTR1 
LDX PSLOSS 
JSR TWO 
LDX #$01D8 
BSR SRSCN1 

LDAB #$05 
JSR ROWSET 
LDX PDVME 
LDAB #$02 
JSR BINDEC 
LDX #$01F5 
LDAB #$04 
JSR DIGPRT 
LDX #$01E7 
BSR SRSCN1 
LDAB #$06 
JSR ROWSET 
LDX #NTR 
LDAB #$01 
JSR BINDEC 
LDX #$0203 
LDAB #$02 
JSR DIGPRT 
LDX #$01F7 
JSR SRSCN1 

LDAB #$07 
JSR ROWSET 
LDXPDVSE 


5-22 



0B1B 

C6 

02 


OB1D 

BD 

05 

29 

0B20 

CE 

02 

13 

0B23 

C6 

04 


OB25 

BD 

06 

62 

0B28 

CE 

02 

05 

OB2B 

BD 

05 

06 

0B2E 

C6 

08 


0B30 

BD 

06 

76 

OB33 

CE 

01 

70 

0B36 

BD 

05 

06 

OB39 

CE 

OA 

00 

0B3C 

DF 

26 


0B3E 

BD 

08 

ID 

0B41 

7A 

00 

34 

0B44 

CE 

02 

15 

0B47 

BD 

05 

06 

0B4A 

BD 

OF 

80 

0B4D 

81 

BO 


0B4F 

26 

03 


OB51 

7E 

OC 

4C 

0B54 

81 

B1 


0B56 

26 

03 


0B58 

7E 

OA 

65 

0B5B 

81 

B2 


0B5D 

26 

03 


0B5F 

7E 

OB 

7E 

0B62 

81 

B3 


0B64 

26 

03 


0B66 

7E 

OB 

D3 

0B69 

81 

B4 


0B6B 

26 

03 


0B6D 

7E 

OC 

13 

0B70 

81 

B5 


0B72 

26 

03 


OB74 

7E 

OD 

B8 

OB77 

81 

B6 


0B79 

26 

C9 


OB7B 

7E 

OD 

32 

0B7E 

CE 

02 

4D 

0B81 

BD 

05 

06 

DB84 

BD 

07 

02 

OB87 

8D 

25 


0B89 

96 

4C 


0B8B 

16 



0B8C 

C4 

38 




LDAB #$02 
JSR BINDEC 
LDX #$0213 
LDAB #$04 
JSR DIGPRT 
LDX #$0205 
JSR MSG 


LDAB #$08 
JSR ROWSET 
LDX #$0170 
JSR MSG 

CMND 

LDX #$0A00 
STX STORE1 
JSR ELOM 
DEC RNM+$1 

CMD 

LDX #$0215 
JSR MSG 

JSR INPUT 


CMP A #$B0 
BNE NCRSE 
JMP CRSE 

NCRSE 

CMP A #$B1 
BNE NSRSCN 
JMP SRSCN 

NSRSCN 

CMP A #$B2 
BNE NLRSCN 
JMP LRSCN 

NLRSCN 

CMP A #$B3 
BNE NGXPRT 
JMP GXPRT 

NGXPRT 

CMP A #$B4 
BNE NSHEN 
JMP SHEN 

NSHEN 

CMP A #$B5 
BNE NPHSR 
JMP PHSR 

NPHSR 

CMP A #$B6 
BNE CMD 

JMP TRPD 

LRSCN 

LDX #$024D 
JSR MSG 

JSR QUAD 
BSR LRSCNl 
LDAA CQLSS 
TAB 

ANDB #$38 
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0B8E 

27 

21. 



BEQ RWC1 

0B90 

80 

08 



SUBA #$08 

0B92 

BD 

07 

60 


JSR LRR 

0B95 

8D 

17 


LR1 

BSR LRSCN1 

0B97 

96 

4C 



LDAA CQLSS 

0B99 

BD 

07 

60 


JSR LRR 

0B9C 

8D 

10 



BSR LRSCN1 

0B9E 

96 

4C 



LDAA CQLSS 

OBAO 

81 

38 



CMP A #$38 

0BA2 

24 

12 



BCC RWC2 

0BA4 

8B 

08 



ADDA #$08 

0BA6 

BD 

07 

60 


JSR LRR 

0BA9 

8D 

03 


LR2 

BSR LRSCN1 

OBAB 

7E 

OB 

39 


JMP CMND 

OBAE 

7E 

07 

27 

LRSCN1 

JMP NTN 

OBB1 

8D 

08 


RWC1 

BSR RWC 

0BB3 

7E 

OB 

95 


JMP LR1 

0BB6 

8D 

03 


RWC2 

BSR RWC 

0BB8 

7E 

OB 

A9 


JMP LR2 

OBBB 

CE 

04 

C9 

RWC 

LDX #$04C9 

OBBE 

4F 




CLRA 

OBBF 

BD 

07 

3C 


JSR QDSET 

0BC2 

CE 

04 

CF 


LDX #$04CF 

0BC5 

4F 




CLRA 

0BC6 

BD 

07 

3C 


JSR QDSET 

0BC9 

CE 

04 

D5 


LDX #$04D5 

OBCC 

4F 




CLRA 

OBCD 

BD 

07 

3C 


JSR QDSET 

OBDO 

7E 

07 

92 


JMP LRP 

OBD3 

CE 

04 

22 

GXPRT 

LDX #$0422 

0BD6 

BD 

05 

06 


JSR MSG 

0BD9 

C6 

31 



LDAB #$31 

OBDB 

BD 

07 

29 


JSR NT1 

OBDE 

CE 

00 

CO 


LDX #$00C0 

OBE1 

DF 

20 



STX PNTR1 

OBE3 

CE 

00 

84 

GL1 

LDX #$0084 

0BE6 

DF 

22 



STX PNTR2 

0BE8 

DE 

20 


GL2 

LDX PNTR1 

OBEA 

8C 

01 

00 


CPX #$0100 

OBED 

27 

21 



BEQ GL3 

OBEF 

A6 

00 



LDAA X 

OBF1 

08 




INX 

0BF2 

DF 

20 



STX PNTR1 

0BF4 

DE 

22 



LDX PNTR2 


5-24 



0BF6 

BD 

07 

3C 

0BF9 

86 

06 


OBFB 

9B 

23 


OBFD 

97 

23 


OBFF 

81 

B4 


OCOl 

26 

E5 


0C03 

CE 

00 

80 

0C06 

BD 

05 

06 

0C09 

C6 

31 


OCOB 

BD 

07 

29 

OCOE 

20 

D3 


OCIO 

7E 

OB 

39 

OC13 

CE 

03 

30 

0C16 

BD 

05 

06 

0C19 

BD 

08 

28 

OC1C 

2B 

F5 


OC1E 

BD 

05 

8A 

OC21 

DE 

28 


0C23 

DF 

26 


0C25 

96 

55 


0C27 

27 

OD 


0C29 

BD 

07 

D8 

0C2C 

25 

15 


0C2E 

BD 

07 

E9 

0C31 

BD 

08 

00 

0C34 

20 

13 


0C36 

BD 

07 

DC 

0C39 

25 

08 


0C3B 

BD 

07 

ED 

0C3E 

BD 

07 

FC 

0C41 

20 

06 


0C43 

CE 

03 

4C 

0C46 

BD 

05 

06 

0C49 

7E 

OB 

39 

0C4C 

CE 

02 

20 

0C4F 

BD 

05 

06 

0C52 

BD 

08 

8C 

0C55 

27 

F5 


0C57 

CE 

02 

33 

0C5A 

BD 

05 

06 

0C5D 

BD 

OF 

80 

0C60 

81 

BO 


0C62 

25 

F3 




JSR QDSET 

LDAA #$06 
ADDA PNTR2+$1 
STAA PNTR2+$1 
CMP A #$B4 
BNEGL2 


LDX #$0080 

JSR MSG 

LDAB #$31 

JSR NT1 

BRAG LI 

GL3 

JMP CMND 

SHEN 

LDX #$0330 

JSR MSG 

JSR EIN 

BMI SHEN 


JSR DCBN 

LDX STORE2 

STX STORE1 
LDAA DGT5TH 
BEQ POS 

JSR CKSD 

BCS NE 

JSR FMSD 

JSR TOMN 

BRA SHEN1 

POS 

JSR CKMN 

BCS NE 

JSR FMMN 

JSR TOSD 

BRA SHEN1 

NE 

LDX #$034C 

JSR MSG 

SHEN1 

JMP CMND 

CRSE 

LDX #$0220 

JSR MSG 

JSR DRCT 

BEQ CRSE 

WRP 

LDX #$0233 

JSR MSG 

JSR INPUT 

CMP A #$B0 

BCS WRP 


5 - 25 



0C64 

81 

B8 


0C66 

24 

EF 


0C68 

84 

07 


0C6A 

48 



0C6B 

48 



0C6C 

48 



0C6D 

16 



0C6E 

86 

AE 


0C70 

BD 

OF 

CO 

0C73 

BD 

OF 

80 

0C76 

81 

BO 


0C78 

25 

DD 


0C7A 

81 

B8 


0C7C 

24 

D9 


0C7E 

84 

07 


0C80 

IB 



0C81 

27 

D4 


0C83 

97 

30 


0C85 

BD 

08 

BA 

0C88 

7F 

00 

31 

0C8B 

BD 

08 

D5 

0C8E 

26 

03 


0C90 

7E 

06 

53 

0C93 

96 

32 


0C95 

27 

10 


0C97 

97 

31 


0C99 

CE 

19 

00 

0C9C 

DF 

26 


0C9E 

BD 

08 

ID 

0CA1 

BD 

06 

2F 

0CA4 

BD 

05 

C8 

OCA 7 

BD 

09 

44 

OCAA 

BD 

06 

22 

OCAD 

26 

OE 


OCAF 

BD 

09 

59 

0CB2 

27 

2D 


0CB4 

24 

43 


0CB6 

96 

31 


0CB8 

26 

03 


OCBA 

7E 

06 

58 

OCBD 

7A 

00 

30 

OCCO 

26 

C9 


0CC2 

96 

31 


0CC4 

27 

08 


0CC6 

7A 

00 

50 

0CC9 

26 

03 



CMP A #$B8 

BCC WRP 

AND A #$07 

ASLA 

ASLA 

ASLA 

TAB 

LDAA #$AE 
JSR PRINT 
JSR INPUT 
CMP A #$BO 
BCS WRP 
CMP A #$B8 
BCC WRP 
ANDA #$07 
ABA 

BEQ WRP 
STAA CNTR 
JSR ACTV 
CLR Cl 

MOV JSR TRK 
BNE MOV1 
JMP LOST 

MOV1 LDAA CF 
BEQ CLSN 
STAA Cl 
LDX #$1900 
STX STORE1 
JSR ELOM 
JSR QCNT 
JSR NWQD 

CLSN JSR RWCM 
JSR MATCH 
BNE MVDN 
JSR COMPAR 
BEQ SSOUT 
BCC ASOUT 
LDAA Cl 
BNE MVDN 
JMP WPOUT 

MVDN DEC CNTR 
BNE MOV 

LDAA Cl 
BEQ NOX 
DEC NSR 
BNE NOX 
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OCCB 

7E 

06 

4A 

OCCE 

BD 

09 

44 

0CD1 

97 

36 


0CD3 

BD 

06 

22 

0CD6 

26 

03 


0CD8 

BD 

OD 

OD 

OCDB 

BD 

OD 

12 

OCDE 

7E 

OA 

65 

0CE1 

96 

31 


0CE3 

26 

D8 


0CE5 

BD 

08 

4B 

0CE8 

CE 

03 

BA 

OCEB 

BD 

05 

06 

OCEE 

CE 

58 

02 

0CF1 

DF 

26 


0CF3 

BD 

07 

98 

0CF6 

7E 

OC 

BD 

0CF9 

96 

31 


OCFB 

26 

CO 


OCFD 

BD 

08 

4B 

0D00 

CE 

03 

7F 

0D03 

BD 

05 

06 

0D06 

CE 

DC 

05 

0D09 

DF 

26 


ODOB 

20 

E6 


ODOD 

C6 

01 


ODOF 

7E 

06 

OF 

0D12 

96 

3E 


0D14 

2A 

01 


0D16 

39 



0D17 

84 

38 


0D19 

D6 

36 


0D1B 

C4 

38 


0D1D 

11 



0D1E 

26 

OE 


0D20 

96 

3E 


0D22 

D6 

36 


0D24 

CB 

01 


0D26 

11 



0D27 

27 

06 


0D29 

CO 

02 


0D2B 

11 



0D2C 

27 

01 


0D2E 

39 




JMP TIME 

NOX JSR RWCM 
ETTA A SLOSS 
JSR MATCH 
BNE NOX1 
JSR CHNG 

NOX1 JSR DKED 
JMP SRSCN 

SSOUT LDAA Cl 

BNE MVDN 
JSR DLET 
LDX #$03BA 
JSR MSG 
LDX #$5802 
STX STORE1 
SSOl JSR ELOS 
JMP MVDN 

ASOUT LDAA Cl 

BNE MVDN 
JSR DLET 
LDX #$037F 
JSR MSG 
LDX #$DC05 
STX STORE 1 
BRA SSOl 

CHNG LDAB #$01 
JMP LOCSET 

DKED LDAA SLSS 
BPLDKED1 
RTS 

DKEDl ANDA #$38 
LDAB SLOSS 
ANDB #$38 
CBA 

BNE DKED2 
LDAA SLSS 
LDAB SLOSS 
ADDB #$01 
CBA 

BEQ DKED3 
SIJBB #$02 
CBA 

BEQ DKED3 

DKED2 RTS 
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0D2F 

7E 

06 

3B 

0D32 

96 

4D 


0D34 

27 

79 


0D36 

7A 

00 

4D 

0D39 

CE 

FA 

00 

0D3C 

DF 

26 


0D3E 

BD 

07 

DC 

0D41 

24 

03 


0D43 

7E 

OC 

43 

0D46 

BD 

07 

ED 

0D49 

CE 

03 

60 

0D4C 

8D 

41 


0D4E 

BD 

08 

8C 

0D51 

27 

F6 


0D53 

BD 

08 

BA 

0D56 

96 

4C 


0D 58 

97 

30 


0D6A 

BD 

08 

D5 

0D5D 

27 

3B 


0D5F 

96 

32 


0D61 

26 

37 


0D63 

BD 

09 

44 

0D66 

16 



0D67 

97 

26 


0D69 

CE 

04 

IE 

0D6C 

BD 

07 

17 

0D6F 

CE 

04 

12 

0D72 

8D 

IB 


0D74 

96 

26 


0D76 

BD 

06 

22 

0D79 

27 

03 


0D7B 

7E 

0D 

5A 

0D7E 

BD 

09 

59 

0D81 

25 

17 


0D83 

27 

0D 


0D85 

BD 

08 

4B 

0D88 

CE 

03 

7F 

0D8B 

8D 

02 


0D8D 

20 

26 


0D8F 

7E 

05 

06 

0D92 

BD 

08 

4B 

0D95 

CE 

03 

BA 

0D98 

8D 

F5 


0D9A 

96 

30 



DKED3 JMP LOAD 

TRPD LDAA NTR 
BEQ NTPD 
DEC NTR 
LDX #$FA00 
STX STORE1 
JSR CKMN 
BCC TRPD1 
JMP NE 

TRPD1 JSR FMMN 

TR1 LDX #$0360 
BSR TR3 
JSR DRCT 
BEQ TR1 
JSR ACTV 
LDAA CQLSS 
ST A A CNTR 

TR2 JSR TRK 
BEQ QOUT 
LDAA CF 
BNE QOUT 
JSR RWCM 
TAB 

ST A A STORE1 
LDX #$04IE 
JSRT1 
LDX #$0412 
BSR TR3 
LDAA STORE1 
JSR MATCH 
BEQ HIT 
JMP TR2 

HIT JSR COMPAR 
BCSQOUT 
BEQ SSTA 
JSR DLET 
LDX #$037F 
BSR TR3 
BSR CMND1 

TR3 JMP MSG 

SSTA JSR DLET 

LDX #$03BA 
BSR TR3 

QOUT LDAA CNTR 
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0D9C 

97 

4C 


0D9E 

BD 

09 

60 

0DA1 

CE 

03 

96 

0DA4 

BD 

05 

06 

0DA7 

CE 

C8 

00 

ODAA 

BD 

07 

98 

ODAD 

20 

06 


ODAF 

CE 

04 

B6 

0DB2 

BD 

05 

06 

0DB5 

7E 

OB 

39 

0DB8 

CE 

04 

33 

ODBB 

8D 

D2 


ODBD 

BD 

08 

28 

ODCO 

2B 

F6 


0DC2 

BD 

05 

8A 

0DC5 

DE 

28 


0DC7 

DF 

26 


0DC9 

BD 

08 

ID 

ODCC 

BD 

09 

60 

ODCF 

BD 

05 

11 

ODD 2 

80 

01 


0DD4 

27 

04 


0DD6 

16 



0DD7 

BD 

08 

OF 

ODDA 

DE 

26 


ODDC 

DF 

2C 


ODDE 

DE 

6A 


ODEO 

DF 

24 


ODE 2 

DE 

60 


0DE4 

BD 

OD 

FB 

ODE 7 

DE 

6C 


ODE 9 

DF 

24 


ODEB 

DE 

62 


ODED 

BD 

OD 

FB 

ODFO 

DE 

6E 


0DF2 

DF 

24 


0DF4 

DE 

64 


0DF6 

BD 

OD 

FB 

0DF9 

20 

BA 

ODFB 

DF 

22 


ODFD 

A6 

00 


ODFF 

2A 

01 


0E01 

39 



0E02 

DE 

2C 


0E04 

DF 

26 


0E06 

CE 

04 

65 

0E09 

DF 

20 



STAA CQLSS 
JSR WASTE 
LDX #$0396 
JSR MSG 
LDX #$C800 
JSR ELOS 
BRA CMND1 

NTPD LDX #$04B6 
JSR MSG 

CMND1 JMPCMND 

PH SR LDX #$0433 
BSR TR3 
JSR EIN 
BMIPHSR 
JSR DCBN 
LDX STORE2 
STX STORE 1 
JSR ELOM 
JSR WASTE 

PHS1 JSR ROTR4 
SUBA #$01 
BEQ PHI 
TAB 

JSR DVD 

PHI LDX STORE 1 
STX STORE4 
LDX PVASE1 
STX PNTR3 
LDX PSLAS1 
JSR ASPH 
LDX PVASE2 
STX PNTR3 
LDX PSLAS2 
JSR ASPH 
LDX PVASE3 
STX PNTR3 
LDX PSLAS3 
JSR ASPH 
BRA CMND1 

ASPH STX PNTR2 
LDAAX 
BPL ASPH1 
RTS 

ASPH1 LDX STORE4 
STX STORE 1 
LDX #$0465 
STX PNTR1 


5-29 



0E0B 

DE 

22 


0E0D 

BD 

07 

12 

0E10 

CE 

04 

4E 

0E13 

BD 

05 

06 

0E16 

CE 

00 

36 

0E19 

8D 

5C 


0E1B 

97 

28 


0E1D 

D7 

29 


0E1F 

DE 

22 


0E21 

8D 

54 


0E23 

90 

28 


0E25 

2A 

01 


0E27 

40 



0E28 

DO 

29 


0E2A 

2A 

01 


0E2C 

50 



0E2D 

IB 



0E2E 

44 



0E2F 

44 



0E30 

84 

03 


0E32 

16 



0E33 

27 

03 


0E35 

BD 

08 

OF 

0E38 

DE 

24 


0E3A 

BD 

07 

EF 

0E3D 

2B 

2D 


0E3F 

26 

04 


0341 

6D 

00 


0E43 

27 

27 


0E45 

C6 

02 


0E47 

BD 

05 

29 

0E4A 

CE 

04 

77 

0E4D 

C6 

04 


0E4F 

BD 

06 

62 

0E52 

CE 

04 

6B 

0E55 

BD 

05 

06 

0E 58 

DE 

24 


0E5A 

A6 

00 


0E5C 

97 

26 


0E5E 

A6 

01 


0E60 

97 

27 


0E62 

C6 

02 


0E64 

BD 

08 

OF 

0E67 

DE 

26 


0E69 

7E 

07 

98 

0E6C 

CE 

03 

CA 

0E6F 

BD 

05 

06 

0E72 

DE 

22 


0E74 

7E 

08 

4B 


LDXPNTR2 
JSR TWO 
LDX #$044E 
JSR MSG 
LDX #SLOSS 
BSR SPRC 
ST A A STORE 2 
STAB STORE2+$l 
LDXPNTR2 
BSR SPRC 
SUBA STORE2 
BPL PH2 
NEGA 

PH2 SUBB STORE2+$l 
BPL PH 3 
NEGB 

PH3 ABA 
LSRA 
LSRA 

ANDA #$03 
TAB 

BEQ PH4 
JSR DVD 

PH4 LDX PNTR3 
JSR FM1 
BMI DSTR 
BNE ALOS 
TST X 
BEQ DSTR 

ALOS LDAB #$02 
JSR BINDEC 
LDX #$0477 
LDAB #$04 
JSR DIGPRT 
LDX #$046B 
JSR MSG 
LDX PNTR3 
LDAAX 
STAA STORE1 
LDAA $01,X 
STAA STOREl+$l 
LDAB #$02 
JSR DVD 
LDX STORE1 
JMP ELOS 

DSTR LDX #$03CA 
JSR MSG 
LDX PNTR2 
JMP DLET 
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0E77 

A6 

00 


SPRC 

LDAAX 

0E79 

16 




TAB 

0E7A 

BD 

05 

12 


JSR ROTR3 

0E7D 

84 

07 



AND A #$07 

0E7F 

C4 

07 



ANDB #$07 

0E81 

39 




RTS 

0E82 

26 

03 


PATCH 

BNE PATCH1 

0E84 

08 




INX 

0E85 

09 




DEX 

0E86 

39 




RTS 

0E87 

7E 

06 

24 

PATCH1 

JMP MATCH2 


0F00 

00 

01 

04 

23 

OA 

03 

07 

00 

OF 08 

00 

1A 

23 

05 

03 

14 

16 

12 

0F10 

00 

00 

00 

00 

00 

05 

04 

17 

0F18 

05 

01 

14 

00 

00 

04 

05 

00 

0F20 

07 

02 

11 

09 

00 

04 

00 

00 

0F28 

23 

00 

02 

24 

00 

00 

03 

07 

0F30 

00 

15 

00 

05 

OE 

00 

02 

06 

0F38 

15 

00 

03 

02 

13 

00 

34 

03 

0F40 

07 

01 

00 

00 

00 

03 

15 

00 

0F48 

00 

04 

00 

IF 

04 

01 

03 

02 

OF 50 

03 

14 

00 

00 

00 

16 

OD 

00 

OF 58 

00 

04 

13 

03 

00 

00 

00 

14 

0F60 

OB 

01 

15 

13 

00 

00 

00 

03 

0F68 

07 

00 

00 

00 

ID 

04 

00 

16 

0F70 

00 

13 

15 

00 

00 

04 

06 

02 

0F78 

03 

15 

00 

00 

16 

00 

27 

00 


0F80 

BD 

El 

AC 

INPUT 

JSR $E1AC 

OF 83 

8A 

80 



ORAA #$80 

0F85 

39 




RTS 

OFCO 

36 



PRINT 

PSHA 

OFCl 

BD 

El 

Dl 


JSR $E1D1 

0FC4 

32 




PULA 

0FC5 

39 




RTS 
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SAMPLE OF GALAXY OPERATION 


For those that may still be unsure of the operation of the Galaxy 
game, the following sample illustrates the initial moves that may be 
made in a typical game. The galaxy contents are assumed to be the 
same as that displayed on page 1-8. All operator entries are under¬ 
lined. The comments in the parentheses are included to point out 
various facts one should watch as a game progresses, and to explain 
the reasoning behind each of the moves. The Galaxy game is initiated 
by jumping to the address 0500 hexadecimal. 


DO YOU WANT TO GO ON A SPACE VOYAGE? X 

YOU MUST DESTROY 22 ALIEN SHIPS IN 27 STARDATES 
WITH 4 SPACE STATIONS 


-1--2--3--4--5--6--7--8- 
1 * 

2 

3 +++ 

4 * 

5 

6 

7 >1< * 

8 

-1--2--3--4--5--6--7--8- 


STARDATE 

3023 

CONDITION 

RED 

QUADRANT 

6,5 

SECTOR 

5,3 

ENERGY 

5000 

TORPEDOES 

10 

SHIELDS 

0000 


(Before attacking the alien ship, energy should be transferred to the 
protective shields.) 


COMMAND? ± 

SHIELD ENERGY TRANSFER = 1000 
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(The alien ship is located three columns to the right and two rows 
up. A torpedo trajectory of 1.5 just might make it.) 


COMMAND? 6_ 

TORPEDO TRAJECTORY: 1.5 
TRACKING 4,4 
TRACKING 4,5 
TRACKING 3,6 
ALIEN SHIP DESTROYED 


(Good shot. Now, a short range scan will indicate the loss of the alien 
ship and amount of energy remaining. The energy consumed was 10 
units for each command entered plus 250 units to fire the torpedo.) 

COMMAND? 1 _ 

-1--2--3--4--5--6--7--8- 


1 

* 


STARDATE 

3023 

2 



CONDITION 

GREEN 

3 



QUADRANT 

6,5 

4 

* 


SECTOR 

5,3 

5 

<*> 


ENERGY 

3720 

6 



TORPEDOES 

09 

7 

>K 

* 

SHIELDS 

1000 


8 

-1--2--3--4--5--6--7--8- 

(Before leaving this quadrant, docking with the space station will 
refill the energy banks and torpedo tubes.) 

COMMAND? 0 _ 

COURSE (1 - 8.5)? 7,0 

WARP FACTOR (0.1 - 7.7)? 0.2 


6 - 2 





8 - 


- 1 -- 2 -- 3 -- 4 -- 5 -- 6--7 


1 

* 


STARDATE 

3023 

2 



CONDITION 

GREEN 

3 



QUADRANT 

6,5 

4 

* 


SECTOR 

7,3 

5 



ENERGY 

5000 

6 



TORPEDOES 

10 

7 

<*»!< 

* 

SHIELDS 

0000 


-1--2--3--4--5--6--7--8- 


(A long range scan will display the surrounding quadrants.) 
COMMAND? 2 . 

LONG RANGE SCAN FOR QUADRANT 6,5 

1 112 1 001 1 006 1 

1 001 1 013 1 104 1 

1 203 1 007 1 004 1 


(Let’s move into quadrant 7,4 to attack the two alien ships residing 
there. The stardate will increase by one, and the new quadrant 
location will be indicated. If the move is tracked one sector at a time 
it would be noted that two quadrant borders were crossed, resulting 
in the loss of 25 units of energy for each crossing.) 

COMMAND? _0 

COURSE (1-8.5)? 6.0 

WARP FACTOR (0.1 - 7.7)? 1.0 
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-1--2--3--4--5--6--7 - - 8 - 


1 



STARDATE 

3024 

2 



CONDITION 

RED 

3 


+++ 

QUADRANT 

7,4 

4 


* 

SECTOR 

7,3 

5 



ENERGY 

4930 

6 +++ 

* 


TORPEDOES 

10 

7 

* 

<*> 

SHIELDS 

0000 

8 





- 1 - - 

2 

--3--4--5--6--7--8- 




(Don’t forget the shield energy before attacking.) 

COMMAND? _4 

SHIELD ENERGY TRANSFER = 1QQQ 

(The stars are blocking the path to both alien ships for the torpedoes. 
Instead of maneuvering to a position to fire a torpedo at each, a 
small phasor is fired to determine the size of the alien ships.) 

COMMAND? _5 

PHASOR ENERGY TO FIRE = 0100 
ALIEN SHIP AT SECTOR 3,3: DESTROYED 
ALIEN SHIP AT SECTOR 6,1: ENERGY = 0150 
LOSS OF ENERGY 0037 

(The alien ship at sector 3,3 was destroyed. The other alien ship fired 
back in retaliation. However, since its shield energy is only 150, and 
the distance factor (as defined on page 1 -10) is zero, another phasor 
shot should take care of it.) 

COMMAND? _5_ 

PHASOR ENERGY TO FIRE = 0150 
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ALIEN SHIP AT SECTOR 6,1: DESTROYED 

(A short range scan will provide proof that the alien ships are des¬ 
troyed, and also indicate how much energy is left.) 


COMMAND? J_ 

-1--2--3--4--5--6--7 - - 8 - 


1 


STARDATE 

3024 

2 


CONDITION 

GREEN 

3 


QUADRANT 

7,4 

4 

* 

SECTOR 

7,3 

5 


ENERGY 

3640 

6 

* 

TORPEDOES 

10 

7 

8 

-1 - 

* <*> 

-2--3--4--5--6--7--8- 

SHIELDS 

0963 


(The game would be continued by maneuvering about to the other 
quadrants in the galaxy which contain alien ships. However, one 
must always be aware of the amount of energy in the space ship, and 
the number of stardates remaining as the game progresses. Allowing 
either of these to run out would be as disasterous as moving out of 
the known galaxy or making a fatal error such as the following 
attempt to move to quadrant 5,4.) 

COMMAND? _0 

COURSE (1 - 8.5)? 3J0 

WARP FACTOR (0.1 - 7.7)? _2T 

KA-BOOM, YOU CRASHED INTO A STAR. 

YOUR SHIP IS DESTROYED. 
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PUBLICATIONS FROM SCELBI COMPUTER CONSULTING, INC. 


AN ‘8080’ ASSEMBLER PROGRAM.$19.95 

AN ‘8080’ EDITOR PROGRAM.$17.95 

‘8080’ MONITOR ROUTINES.$14.95 

SCELBI’S GALAXY GAME FOR THE ‘8008/8080’.$14.95 

SCELBI’S GALAXY GAME FOR THE ‘6800’.$14.95 

SCELBI’S FIRST BOOK OF COMPUTER GAMES 

FOR THE ‘8008/8080’.$14.95 

SCELBI ‘8080’ SOFTWARE GOURMET GUIDE 

AND COOK BOOK.$ 9 95 

SCELBI ‘6800’ SOFTWARE GOURMET GUIDE 

AND COOK BOOK.$ 9.95 


THE ABOVE PUBLICATIONS MAY BE ORDERED 
DIRECTLY FROM: 

SCELBI COMPUTER CONSULTING, INC. 
1322 Rear - Boston Post Road 
Milford, CT 06460 














NEW software by 
written for immediate use 
with your 6800 system ... 

SCELBI’S 


G4WXY 

GAME FOR THE “6800” 



Captain your own crusading starship against the logic of 
your “6800”. Your mission: search-and-destroy a random 
number of alien ships. But, don’t run out of time, out of 
fuel, out of ammunition or out of the galaxy. Your galaxy 
consists of 64 quadrants, subdivided into 64 sectors. Plan 
your mission to destroy all aliens. But, every time you move 
you lose a stardate and precious fuel. Don’t run into a 
roaming star that could damage your ship! And, don't forget 
how much fuel your warp factor uses! Suddenly, Condition 
RED! Alien in sight! How big is he? Fire a phasor or 
torpedo? He’s damaged or destroyed. But, you’ve used up 
valuable fuel! Does he fire back? How much fuel was used 
for protective shields? Be careful. You're running out of.time 
and fuel. You get the idea. You must maneuver logically, 
strategically, carefully ... to complete your mission. Here’s 
the multidimensional computer game you’ve asked for. 
Using the original manufacturer’s recommended mnemonics 
and assembly format, with hexadecimal notations, you've 
got a total book form program in machine language, for 4K 
memory, with flow charts, illustrations and more. 
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